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ABSTRACT 


CAPS  (Computer-Aided  Prototyping  System)  is  an  integrated  set  of  software  tools  that 
generate  prototypes  directly  from  real-time  requirements.  The  success  of  CAPS  depends  on  being 
able  to  generate  the  prototype  quickly  so  that  it  can  be  evaluated,  leading  to  the  construction  of  a 
program  built  on  true  requirements  thereby  resulting  in  a  better  software  product.  The  key  to 
developing  prototypes  quickly  is  having  a  significant  software  base  to  choose  reusable  components 
from.  The  problem  with  the  current  version  of  CAPS  is  that  there  exists  no  software  base  storage 
facility. 

This  thesis  utilizes  the  Ontos  database  to  build  the  object  oriented  conceptual  design  for  the 
data  object  repository  and  uses  TAE  to  create  the  graphical  user  interface  to  access  the  repository. 
It  further  explores  various  searching  techniques  to  determine  the  best  possible  implementation  of 
the  repository  search  engine. 

The  results  of  this  thesis  are  a  conceptual  design  that  can  be  used  to  implement  the  software 
base  and  an  interface  which  provides  a  fluid,  intuitive,  interactive  environment  in  which  the  user 
will  be  able  to  manipulate  the  database  when  actually  built.  It  further  identifies  the  multi-level 
filtering  technique  as  the  best  candidate  for  searching  the  database,  because  of  its  high  recall,  high 
precision,  and  reduced  search  time. 
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L  INTRODUCTION 


For  the  past  several  decades,  software  engineers  have  constantly  struggled  with  the  issue 
of  whether  or  not  to  rewrite  their  applications  in  the  latest  and  greatest  language  on  the  market. 
While  newer  languages  offer  great  benefits,  they  always  come  with  a  price.  Every  year  massive 
man-power  efforts  and  billions  of  dollars  of  investment  are  expended  on  the  task  of  rewriting 
applications.  Developing  an  application  with  reuse  capability  becomes  an  important  issue. 

This  thesis  concentrates  on  designing  an  efficient  software  database  and  building  a  flexible 
graphical  user  interface  for  the  software  base  of  the  Computer  Aided  Prototyping  Sys- 
tems(CAPS),  which  is  an  ongoing  software  engineering  project  in  the  Computer  Science  Depart¬ 
ment  of  the  Naval  Postgraduate  School. 

Chapter  II  describes  the  background  knowledge  and  related  work.  Chapter  III  describes 
the  current  retrieval  techniques(multi-level  filtering  retrieval  process)  of  CAPS.  Chapter  IV  dis¬ 
cusses  the  conceptual  design  of  data  storage.  Chapter  V  discusses  graphical  user  interface  design 
issues  and  the  implementation  details.  Chapter  VI  concludes  with  a  summary  of  the  work  done 
thus  far  and  discusses  future  concerns.  It  identifies  several  areas  which  need  further  improvement/ 
research. 

A.  SOFTWARE  REUSE 

1.  Introduction  to  Software  Reuse 

Software  reuse  is  defined  as  the  process  of  implementing  or  updating  software  systems 
using  existing  software  assets.  Software  reuse  is  the  application  of  reusable  software  assets  to 
more  than  one  software  system.  It  may  occur  within  a  software  system,  across  similar  software 
systems,  or  in  widely  different  software  systems. 

A  reusable  software  asset  is  a  software  product  that  is  cataloged  in  a  reuse  library.  This 
includes,  for  example,  models  of  distinct  functional  areas  (i.e.,  domains),  domain  architectures 
requirements,  designs,  code,  databases,  database  schemas,  documentation,  user  manuals,  and 
test  suites[Ref.  1]. 

2.  The  Importance  of  Software  Reuse 

Software  reuse  provides  a  basis  for  dramatic  improvements  in  quality  and  reliability, 
speed  of  delivery,  and  in  long-term  decreased  costs  for  software  development  and  maintenance. 
Industry  has  demonstrated  that  software  reuse  generates  significant  return  on  investment(ROI) 
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by  reducing  cost,  time,  and  effort  while  increasing  quality,  productivity,  and  maintainability  of 
software  systems  throughout  the  software  life-cycle. 

A  significant  challenge  to  both  management  and  technical  staff  is  to  improve  the  quality 
and  reliability  of  an  organization's  systems  in  an  era  of  decreasing  budgets.  The  challenge  is 
intensified  by  the  ever  increasing  complexity  and  functionality  of  modem  information  systems. 
Software  engineers  have  stressed  the  importance  of  reducing  the  cost,  time,  and  effort  required 
to  build  and  maintain  software  systems.  This  applies  to  both  in-house  and  contractor-developed 
systems. 

Many  software  development  costs  have  outstripped  hardware  costs  and  are  continuing  to 
grow.  The  major  factors  contributing  to  this  growth  of  software  costs  are  the  continuing  increase 
in  the  size  and  complexity  of  software  systems  and  an  international  climate  that  calls  for  rapid 
adaptation  to  new  situations.  Software  reuse  offers  significant  potential  to  hold  down  future 
costs  by  taking  advantage  of  previously  developed  software  and  by  developing  software 
designed  for  future  reuse. 

One  response  to  this  situation  that  has  proven  successful  is  the  integration  of  software 
reuse  principles  into  the  software  engineering  process.  Reusable  software  requires  carefully 
analyzed  and  structured  design  that  withstands  thorough  testing  for  functionality,  reliability,  and 
modularity.  Accordingly,  improvements  manifest  themselves  in  increased  quality  and  reliability 
and  in  long-term  decreased  costs  for  software  development  and  maintenance. 

Reuse  reduces  the  risks  and  costs  of  software  acquisition,  development,  and 
maintenance.  Other  benefits  of  adopting  reuse  include  improved  interoperability  and  support  for 
rapid  prototyping  activities,  such  as  CAPS,  discussed  later.  A  well  ran  reuse  program  decreases 
initial  risk  for  development,  maintenance,  and  acquisition  activities  by  taking  advantage  of 
software  already  proven  to  be  functional  and  reliable  through  prior  usage. 

Reuse  is  already  an  integral  part  of  every  engineering  discipline.  For  example, 
mechanical  engineers  do  not  design  a  combustion  engine  from  scratch  for  each  car  rolled  off  an 
assembly  line;  software  engineers  do  not  recreate  the  interaction  between  an  application  and  its 
screen  icon  for  each  new  product;  and  aerospace  engineers  do  not  build  a  solid  rocket  booster 
from  ground  zero  for  each  space  shuttle.  In  all  of  these  examples,  the  architecture  and  design  of 
an  item  is  reused  to  produce  and  manage  a  “product  line”.  This  is  also  the  reason  why  the 
architecture  model  of  software  reuse  is  so  important. 
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Reusable  software  can  be  acquired,  developed,  maintained,  and  managed  via  a  “product¬ 
line”,  approach.  For  example,  during  the  past  decade  we  have  to  build  systems  quickly  and 
cheaply.  One  strategy  for  doing  this  is  to  move  to  product-line  techniques  like  commercial  firms 
use  to  achieve  economies  of  scale. 

The  product-line  approach  will  increase  the  software  acquisition,  development,  and 
maintenance  community's  responsiveness  to  project’s  plan  and  requirements  for  the  future.  The 
anticipated  result  is  a  capability  to  deliver  more  responsive,  higher  quality  products  (systems)  to 
the  end  user  more  quickly,  at  reduced  cost,  and  with  less  risk  because  common  software  is 
reused. 

3.  The  Benefits  of  Reuse 

The  biggest  benefit  of  reuse  is  that  it  lowers  the  cost  of  systems.  Software  reuse  will 
yield  significant  benefits  to  the  software  acquisition,  development,  and  maintenance[Ref.  1]. 
Commercial  firms  and  government  organizations  have  experienced  that  software  reuse  will: 

•  Improve  the  quality  and  reliability  of  software-intensive  systems; 

•  Provide  earlier  identification  and  improved  management  of  software  technical  risk; 

•  Shorten  system  development  and  maintenance  time; 

•  Get  products  to  market  sooner; 

•  Increase  productivity;  and 

•  Reduce  cost. 

4.  Reuse  Techniques  and  Approaches 

To  provide  a  framework  for  reuse  activities,  [Ref.  2]  separates  reuse  into  compositional 
and  generative  techniques.  An  additional  technique,  denoted  as  adaptation,  follows  from  these 
two  and  rounds  out  the  framework.  Compositional  techniques  use  building  blocks  and  group  them 
together.  Utilizing  components  that  are  passive  in  nature,  its  emphasis  is  on  component  libraries 
and  on  organization  and  composition  principles.  Generative  techniques  reuse  patterns  of  knowl¬ 
edge.  Utilizing  components  that  are  more  active  in  nature,  it  is  typified  by  language-based  genera¬ 
tors,  or  by  application  generators  which  combine  some  reusable  knowledge  (patterns)  with 
application-specific  constraints  to  generate  products  (e.g.,  code).  Adaptive  techniques  combine 
the  nature  of  the  two  techniques  above,  but  focus  on  transforming  or  modifying  of  descriptive 
(formal)  specifications/languages  into  executable  structures. 

These  techniques  require  incorporation  into  a  comprehensive  and  complementing  set  of 
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mechanisms  or  process  models  to  be  more  readily  put  into  action.  Noteworthy  approaches  to 
reuse  are  found  in  [Ref.  3, 4].  Three  common  process  models,  adaptive  reuse,  parameterized  reuse 
and  engineered  reuse,  are  described  in  [Ref.  5]  that  incorporate  existing  and  newly  emerging 
reuse  practices.  These  could  be  viewed  as  delineating  the  lines  of  reuse  formality. 

Adaptive  reuse  is  accomplished  by  salvaging  or  scavenging  components  from  previous 
projects  as  a  starting  point.  Occasionally,  adaptive  reuse  involves  reusing  old  components  to  cre¬ 
ate  a  modified  version  of  an  old  system  or  porting  them  to  a  new  platform  or  environment. 

Parameterized  reuse  occurs  when  a  standard  generic  base  program  is  established  as  a  com¬ 
mon  chassis.  This  base  program  is  then  used  to  build  several  different  systems  by  extensions 
which  meet  the  unique  requirements  of  each  system. 

Engineered  reuse  is  the  most  formal  of  the  three  processes.  It  involves  undertaking  a 
domain  analysis  to  derive  a  domain  model  and  software  architecture.  Engineered  reuse  applies  the 
results  of  the  domain  analysis  to  domain  engineering,  resulting  in  building  and  controlling  reus¬ 
able  components  for  use  in  new  applications[Ref.  6]. 

The  terms  describing  reuse  do  not  stop  here  -  the  following  may  be  of  interest.  Below  is  a 
list  of  terms  extant  in  the  reuse  community  that  describe  techniques  manifesting  various  degrees 
of  formality.  Though  some  terms  describe  similar  approaches,  each  seems  to  have  an  implicit  rea¬ 
son  for  prescribing  reuse. 

•  Adaptive  reuse:  Making  use  of  what  is  currently  available. 

•  Ad-hoc  reuse:  Reuse  practiced  even  when  there  are  no  defined  methods  being  utilized. 

•  Carry-over  reuse:  Using  one  version  of  software  component  'as  is'  in  a  subsequent  ver¬ 
sion  within  the  same  system. 

•  Architecture-centric  reuse:  Developmenting  of  components  and  applications  based 
upon  a  generic  architecture. 

•  Black  box  reuse:  Composing  systems  by  plugging  together  reusable  components. 

•  Compositional  reuse:  Constructing  new  software  products  by  assembling  reusable 
workproducts 

•  Derived  reuse:  Software  reuse  accomplished  via  the  object-oriented  principle  of  sub¬ 
classing. 

•  Domain  specific  reuse:  Constructing  applications  within  a  certain  domain  using  prod¬ 
ucts,  processes,  and  assets  that  are  applicable  to  that  domain. 
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•  External  reuse:  Using  workproducts  produced  in  an  non-organic,  but  related  project 
and  taken  from  an  external  library. 

♦  Generation-based  reuse:  Using  application  generators  to  build  new  applications  from 
high  level  descriptions. 

•  Institutionalized  reuse:  Reuse  that  is  significantly  practiced  throughout  the  entire  orga¬ 
nization  employing  formal  and  planned  processes. 

•  Internal  reuse:  Avoiding  redundant  implementation  of  functionality  within  a  single 
project  by  careful  design  and  inspection  at  early  stages  such  that  selected  components 
are  identified  for  distinct  uses  within  a  project. 

•  Horizontal  reuse:  Described  earlier  as  reuse  germane  to  a  horizontal  domain. 

♦  Large-scale  reuse:  Reapplication  of  high-level  components  (e.g.,  requirements,  archi¬ 
tectures,  designs). 

•  Leveraged  reuse:  Starting  with  existing  workproducts  in  the  development  process  and 
modifying  as  needed  to  meet  specific  system  requirements. 

•  Library-assisted  (Repository-based)  reuse:  The  existence  of  one  or  more,  possibly 
interconnected  libraries,  supports  development  within  an  application  domain. 

♦  Maintenance  reuse:  Similar  to  carry-over  reuse,  but  stresses  the  use  of  products  from 
an  earlier  version  to  base  any  enhancements  to  the  system  rather  than  allowing  unique 
development  from  similar  requirements. 

♦  Opportunistic  reuse:  Relying  upon  software  developers  to  identify  reuse  possibilities, 
locate  components  (usually  created  without  reuse  in  mind),  and  to  integrate  them. 

*  Process-driven  reuse:  Practicing  reuse  as  an  integral  and  transparent  part  of  both  the 
software  engineering  process  and  broader  acquisition  process. 

*  Small-scale  reuse:  Reapplication  of  lower-level  code  components  (e.g.,  subroutines, 
object  libraries,  or  Ada  packages. 

•  Systematic  reuse:  The  planned  reuse  of  workproducts  with  a  well-defined  process  and 
lifecycles,  with  commitments  for  funding,  staffing  and  incentives  for  production  and 
use  of  reusable  workproducts. 

♦  Vertical  reuse:  Described  earlier  as  reuse  germane  to  a  vertical  domain 
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B.  COMPUTER  AIDED  PROTOTYPING  SYSTEM(CAPS) 

The  Computer-Aided  Prototyping  System  (CAPS)  [Ref.  7]  is  an  on-going  software  engi¬ 
neering  project  at  Naval  Postgraduate  School  for  developing  prototypes  of  real-time  systems.  It  is 
useful  for  requirements  analysis,  feasibility  studies,  and  the  design  of  large  embedded  systems.  It 
also  creates  a  software  base  library  to  support  software  reusability.  CAPS  is  based  on  the  Proto¬ 
type  System  Description  Language  (PSDL)  [Ref.  8],  which  provides  facilities  for  modeling  tim¬ 
ing  and  control  constraints  within  a  software  system.  CAPS  is  a  development  environment, 
implemented  in  the  form  of  an  integrated  collection  of  tools,  linked  together  by  a  user-interface. 
CAPS  provides  the  following  kinds  of  support  to  the  prototype  designer: 

1)  timing  feasibility  checking  via  the  scheduler,  syntax  direct  editor. 

2)  consistency  checking  and  some  automated  assistance  for  project  planning,  scheduling, 

designer  task  assignment,  and  project  completion  date  estimation  via  the  Evolution 

Control  System, 

3)  design  completion  via  the  editors,  and 

4)  computer-aided  software  reuse  via  the  software  base. 

A  CAPS  prototype  is  initially  built  as  an  augmented  data  flow  diagram  and  a  correspond¬ 
ing  PSDL  program.  The  CAPS  data  flow  diagram  and  PSDL  program  are  augmented  with  timing 
and  control  constraint  information.  This  timing  and  control  constraint  information  is  used  to 
model  the  functional  and  real-time  aspects  of  the  prototype.  The  CAPS  environment  provides  all 
of  the  necessary  tools  for  engineers  to  quickly  develop,  analyze  and  refine  real-time  software  sys¬ 
tems.  The  general  structure  of  CAPS  is  shown  in  Figure  1. 

As  Figure  1  indicates,  CAPS  is  a  collection  of  tools,  integrated  by  a  user-interface.  The 
CAPS  User-Interface  provides  access  to  all  of  the  CAPS  tools  and  facilitates  communication  be¬ 
tween  tools  when  necessary.  The  tools  in  the  Figure  1  are  grouped  into  four  sections:  Editors,  Ex¬ 
ecution  Support,  Project  Control  and  Software  Base. 

This  thesis  concentrates  on  the  software  base.  Being  able  to  retrieve  the  correct  components 
when  necessary  is  a  very  complex  task.  Much  work  has  been,  and  currently  is  being  expended  on 
the  retrieval  of  software  components.  Because  this  problem  has  not  yet  been  solved,  we  explore 
the  reuse  component  retrieval  techniques  in  the  following  two  chapters.  The  next  chapter  will  focus 
on  those  techniques  which  have  been  around  for  some  time  and  have  been  explored  under  CAPS. 
Chapter  HI  will  go  further  with  a  less  explored,  potentially  more  powerful  technique. 
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Figure  1.  The  CAPS  Development  Environment 
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H.  BACKGROUND  AND  RELATED  WORK 

A.  RETRIEVAL  TECHNIQUES 

Much  research  has  been  done  in  the  area  of  reusable  software  component  retrieval  tech¬ 
niques,  all  of  which  have  tried  to  increase  the  search  accuracy  and  reduce  the  retrieval  time.  There 
are  three  major  concepts  related  to  the  reusable  component  retrieval  techniques;  representation, 
search,  and  measures  of  performance. 

Representation  is  the  description  of  how  the  component  storage  is  structured  and  facilitates 
the  retrieval  performance.  For  example,  the  multi-attribute  technique,  covered  later,  may  be  used 
for  the  future  retrieval  of  a  certain  component.  The  schema  of  the  component  repository  should 
include,  at  a  minimum,  several  attributes  related  to  the  search  module  in  order  for  the  retrieval 
mechanism  to  do  an  efficient  search.  To  make  a  long  story  short,  the  method  of  representation  and 
the  method  of  search  work  together  to  form  a  cohesive  environment  for  information  retrieval.  The 
more  refined  and  precise  the  method  of  representation,  the  easier  the  search  mechanism  be¬ 
comes  [Ref.  9]. 

A  lot  of  research  has  been  conducted  for  search  mechanics  too,  especially  in  artificial  in¬ 
telligence  and  database  management  systems[Ref.  9].  Various  search  methods  will  be  described  in 
the  following  section. 

Precision  and  recall  are  the  most  important  two  measures  of  performance[Ref.  10].  Preci¬ 
sion  is  defined  as  the  ratio  between  the  number  of  relevant  components  retrieved  and  the  number 
of  the  total  components  retrieved.  It  is  the  precise  percentage  of  the  useful  retrieved  components 
compared  to  the  total  retrieved.  Recall  is  defined  as  the  ratio  between  the  number  of  relevant 
components  retrieved  and  the  number  of  relevant  components  in  the  library.  It  answers  the  ques¬ 
tion,  “What  percentage  of  the  relevant  components  in  the  database  did  my  query  find?”.  Both  pre¬ 
cision  and  recall  reach  the  ideal  situation  when  the  set  of  components  retrieved  is  exactly  the  same 
as  the  set  of  components  that  are  relevant. 

B.  METHODS  FOR  RETRIEVING  REUSABLE  COMPONENTS 

The  method  for  retrieving  reusable  components  could  be  categorized  by  different 
approaches.  There  are  three  major  approaches  for  retrieval:  Interactive  Browser,  Informal 
Specification-Based  method,  and  Formal  Specification-Based  method. 
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1.  Interactive  Browser 

An  Interactive  browser  is  a  tool  which  helps  the  user  look  through  the  software  base 
according  to  its  hierarchical  structure.  The  hierarchy  might  be  structured  by  keywords(ex:  list, 
ring,  stack),  specific  features,  categorizations(ex:  data  structure,  interface,  communication),  col¬ 
lection  name,  author  name,  etc.  The  purpose  of  the  browser  is  to  let  the  user  manually  search  for 
the  desired  component  by  going  through  the  various  levels  of  the  library  hierarchy.  It  is  somewhat 

like  a  World- Wide- Web  (WWW)1  browser(such  as  Netscape)  as  it  has  similar  pros  and  cons. 

The  pros  of  a  browser  is  that  the  user  can  completely  control  the  library  and  view  the 
whole  library  structure  by  browsing  the  various  level  topics.  This  is  useful  if  the  user  is  familiar 
with  the  software  library  and  when  the  user  is  not  familiar  with  it,  it  serves  as  an  excellent  tool  to 
educate  them.  When  the  user  is  familiar  with  the  software  library,  this  technique  proves  to  be 
much  faster  in  finding  relevant  candidates  than  by  other  search  methods. 

The  cons  are  actually  weaknesses  in  the  topics  already  mentioned(the  pros).  First,  since  it 
is  only  efficient  when  the  user  is  familiar  with  the  software  library,  it  will  be  a  problem  when  the 
library  is  large.  For  example,  it  is  not  easy  to  search  a  topic  in  the  WWW  by  browsing  all  of  the 
Internet  sites  instead  of  using  a  search  engine.  The  only  exception  is  when  the  user  already  knows 
or  has  an  idea  about  the  location  of  that  topic.  Even  when  the  Internet  user  knows  of  some  partic¬ 
ular  location  of  the  desired  stuff,  how  could  s/he  be  sure  that  there  is  no  other  relevant  stuff  some¬ 
where  else.  The  same  thing  can  happen  when  browsing  the  software  base  for  a  particular 
component  that  is  needed,  raising  the  disadvantage  of  the  browser;  to  cause  very  low  recall  in 
retrievals  since  the  browser  has  much  difficulty  in  covering  all  the  relevant  components. 

Thirdly,  the  browser  is  a  totally  manual  controlled  system,  which  means  it  is  haltless 
unless  the  user  terminates  the  process.  Not  only  do  recall  and  precision  measurements  suffer  with 
this  technique,  it  can  be  very  time  intensive  when  used  on  an  unfamiliar,  large  repository. 

2.  Informal  Specification-Based  Method 

The  Informal  Specification-Based  Method  includes  keyword  search,  multi-attribute  que¬ 
ries,  and  natural  language  searches[Ref.  11].  The  difference  between  this  method  and  browsing  is 
that  it  involves  an  automatic  search  algorithm.  In  other  words,  the  retrieval  tool  will  halt  and  come 
out  with  all  of  the  candidates  related  to  the  query.  The  reason  we  call  it  an  informal  specification 


1.  WWW:  World  Wide  Web  of  the  Internet. 
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is  because  the  attributes  used  are  more  informal  and  English-like,  which  will  realize  only  general 
matching  capabilities.  Informal  specifications  are  most  useful  for  domain-specific  repositories, 
because  in  such  contexts  it  is  possible  for  the  administrator  of  the  repository  to  anticipate  the  pur¬ 
poses  for  which  a  component  will  be  used,  and  to  design  a  keyword  structure  to  match  the  appli¬ 
cation.  However,  these  approaches  are  not  well  suited  for  exploratory  design  of  new  applications, 
which  is  the  main  goal  of  rapid  prototyping.  Retrievals  based  on  informal  specifications  or  key¬ 
words  are  also  not  very  selective:  in  addition  to  the  relevant  components,  these  techniques  may 
find  many  irrelevant  ones,  thus  relying  on  manual  effort  of  the  user  for  a  substantial  part  of  the 
work  in  doing  the  searching[Ref.  11]. 

a.  Keyword  Search 

Keyword  searching  is  based  on  a  list  of  keywords,  which  are  either  known  system 
controlled  vocabularies  or  uncontrolled(unconstrained)  vocabularies.  In  the  case  of  unconstrained 
keywords,  synonym  tables  are  often  used  to  find  more  standard  words  on  which  to  perform  the 
query[Ref.  10].  This  technique  is  used  by  CAPS  and  the  Operation  Support  System  OSS, 
discussed  later. 

The  first  advantage  of  keyword  search  is  that  it  is  easy  to  implement  due  to  the 
simple  concept.  Secondly,  it  reduces  the  search  time  for  a  large  library,  because  unlike  the 
browser,  it  utilizes  an  automatic  searching  algorithm.  Thirdly,  the  user  does  not  have  to  know  the 
library  structure.  Whenever  the  user  looks  up  the  keyword  list  table,  which  is  just  an  interface  for 
the  search  engine,  s/he  does  not  have  to  deal  with  the  data  storage;  the  algorithm  does  it  for  them. 
It  indirectly  isolates  the  implementation  of  the  retrieval  engine  and  the  data  repository.  This 
aspect  is  also  enhanced  by  the  formal  specification  methodology  which  will  be  discussed  in 
Chapter  m. 

Measurement  problems  are  the  major  downfall  of  keyword  search.  The  fewer 
number  of  attributes  used,  the  higher  the  recall  and  the  lower  the  precision.  Contrarily,  the  more 
attributes  used,  the  lower  the  recall  and  the  higher  the  precision.  This  leaves  the  user  with  a 
dilemma:  how  many  keywords  to  specify. 

b.  Multi-attribute  Search 

Multi-attribute  search  is  an  extension  of  the  keyword  search.  It  is  based  on 
faceted  classification.  Facets,  proposed  by  Prieto-Diaz[Ref.  12],  are  groups  of  related  terms  in  a 
subject  area.  For  example,  a  facet  to  describe  the  functions  performed  by  components  might  be 
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terms  chosen  from  find,  compare,  sort,  update,  send,  receive,  etc.  A  scheme  is  developed  in 
reference  [Ref.  12]  to  describe  Unix  components  using  four  facets:  the  function  performed  by 
the  component,  the  objects  that  are  manipulated,  the  data  structure  used,  and  the  system  to 
which  the  function  belongs.  This  provides  a  better  description  of  Unix  components  than  a  pure 
keyword  approach.  However,  it  still  relies  on  an  informal  description,  using  a  limited  set  of 
facets  and  terms.  The  Multi-attribute  approach  is  used  by  CAPS,  DRACO,  RAPID,  OSS,  the 
Reusable  Software  Library(RSL),  and  the  Common  Ada  Missile  packages  project(CAMP). 

c.  Natural  Language  Interface 

The  Natural  Language  Interface  is  used  by  Reusable  Software  Library(RSL)  and 
is  a  growing  field  of  computer  science  research.  Users  can  drive  the  retrieval  query  command 
with  their  natural  speaking  language.  It  is  good  for  the  user  yet  it  increases  the  difficulty  of 
implementation  due  to  the  broad  semantics  of  the  English  language. 

d.  AI  approach 

Al-based  work  includes  [Ref.  13,  14]  and  some  recent  work  by  Henninger[Ref. 
15],  which  uses  a  knowledge-base  and  statistical  information  to  retrieve  reusable  components, 
based  on  keyword  search  from  texts  describing  the  components.  However,  because  the 
characterization  of  the  component  behavior  is  completely  informal,  the  behavior  is 
unpredictable. 

3.  Formal  Specification-Based  Method 

According  to  Webster’s  Dictionary,  the  word  “formal”  means  definite,  orderly,  and 
methodical;  it  does  not  necessarily  entail  logic  or  proofs  or  correctness.  Everything  that  comput¬ 
ers  do  is  formal  in  the  sense  that  syntactic  structures  are  manipulated  according  to  definite  rules. 
Formal  methods  construct  the  software  architecture  essentially  with  syntactic  and  semantic  speci¬ 
fication  rules[Ref.  16]. 

The  formal  specification-based  retrieval  method  is  based  on  the  formal  method  of  soft¬ 
ware  architecture.  Recent  work  using  semantics  for  software  component  retrieval  is  reported  in 
reference[Ref.  17, 18].  The  primary  aim  is  to  check  that  retrieved  components  yield  the  behavior 
specified  in  the  user’s  query,  therefore  increasing  the  precision  of  retrieval.  Using  formal  specifi¬ 
cations  as  search  keys  has  two  main  problems.  The  first  problem  is  practicality:  not  all  users  are 
sophisticated  enough  to  write  formal  specifications,  much  less  correct  ones.  The  second  problem 
is  that  semantic  matching  is  very  time  consuming,  because  some  form  of  theorem  proving  must 
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be  done. 


The  Venari2  project  at  Carnegie  Mellon  University,  headed  by  Prof.  Jeannette  Wing,  is 
devoted  to  retrieving  components  from  software  libraries,  and  has  produced  a  number  of  interest¬ 
ing  publications.  Here  we  will  not  discuss  their  work  on  transactions  and  other  infrastructural  sup¬ 
port  for  retrieval,  but  only  their  work  on  the  search  process. 

Rollins  and  Wing  [Ref.  19]  discuss  signature  matching  for  retrieving  higher-order  func¬ 
tions  from  a  Metalanguage  (ML)  library,3  using  X  Prolog  for  matching  user  queries  to  component 
signatures.  A,  Prolog  is  used  to  implement  matching  modulo  various  theories,  in  order  to  support 

partial  matches.4  They  also  use  X  Prolog  to  check  simple  pre-  and  post-  conditions  for  ML  func¬ 
tions.  Although  this  paper  demonstrates  that  higher-order  logic  is  useful  for  such  applications,  we 
feel  that  higher-order  logic  is  more  powerful  and  expressive  than  necessary,  and  that  higher-order 
logic  tools  like  X.  Prolog  are  too  inefficient.  Of  course,  a  higher-order  language  like  ML  requires 
the  use  of  higher-order  types,  but  these  are  first-order  expressions,  so  that  first-order  matching 
could  be  used.  Rollins  and  Wing  point  out  that  equational  reasoning  could  dramatically  increase 
precision,  and  they  also  discuss  the  possibility  of  specification  matching. 

Zaremski  and  Wing[Ref.  20]  extend  this  work.  First,  they  consider  signatures  in  two  dif¬ 
ferent  senses,  as  the  rank  of  a  function,  and  as  the  interface  of  a  module;  the  second  sense  involves 
search  and  retrieval  of  modules,  not  just  of  functions.  Second,  they  consider  a  wider  variety  of 
matching  procedures  and  their  combinations,  although  some  of  these  are  needed  only  because  of 
the  awkwardness  of  the  higher-order  encoding  of  operation  ranks  (e.g.,  uncurrying).  Third,  they 
implemented  their  matching  procedures  in  ML,  experimented  with  retrieving  functions  from 
actual  ML  libraries,  and  presented  some  interesting  statistics  on  these  experiments. 

In  more  recent  work,  Zaremski  and  Wing  [Ref.  21]  focus  on  specification  matching,  using 
the  Larch/ML  interface  language  to  express  pre-  and  post-conditions  in  first  order  logic,  and  the 
Larch  prover  to  verify  that  candidate  components  satisfy  these  conditions.  Various  senses  of 
matching  are  defined,  but  neither  ranking  nor  partial  semantic  matching  are  considered.  This 

2.  This  name  is  from  the  Latin  verb  “to  hunt”. 

3.  For  these  authors,  the  word  “signature”  refers  to  the  rank  of  a  higher-order  function,  rather  than  to  the 
syntactic  specification  of  a  software  module,  as  in  the  algebraic  tradition. 

4.  The  Venari  project  uses  the  term  “partial  match”  in  a  more  restricted  sense  than  we  do;  their  term  corre¬ 
sponding  to  our  “partial  match”  is  “relaxed  match”. 
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approach  has  not  resulted  in  a  practical  automated  method  for  specification  based  retrieval. 

Because  these  specification-based  methods  are  based  on  specification  formalisms  and  axi¬ 
oms,  they  are  free  from  ambiguity  and  can  be  transformed  into  normal  representations  by  using 
logic  and  term  rewriting  rules  without  changing  their  meaning. 

The  disadvantage  is  that  specifications  may  be  difficult  for  designers  to  write.  Another  dis¬ 
advantage  is  that  processing  times  for  the  search  algorithms  may  be  excessive  depending  on  the 
approach  taken.  Finally,  matching  formal  specifications  is  a  hard  problem. 

C.  CURRENT  RETRIEVAL  SYSTEMS  AND  TOOLS 

1.  ASSET 

ASSET,  an  acronym  for  Asset  Source  for  Software  Engineering  Technology,  is 
sponsored  by  the  Advanced  Research  Products  Agency(ARPA)  organized  under  the  STARS 
program.  ARPA  tasked  Loral  Federal  Systems  (formerly  IBM  Federal  Systems)  and  its  principal 
subcontractor,  SAIC  (Science  Applications  International  Corporation)  to  establish  the  ASSET 
Reuse  Library  to  serve  as  a  national  resource  for  the  advancement  of  software  reuse  across  the 
Department  of  Defense  (DoD). 

ASSET'S  mission  is  to  provide  a  distributed  support  system  for  software  reuse  within  the 
DoD  and  to  help  foster  a  software  reuse  industry  within  the  United  States.  ASSET'S  initial  and 
current  focus  is  on  software  development  tools,  reusable  components,  and  documents  on 
software  development  methods.  ASSET  is  participating  in  interoperation  with  other  reuse 
libraries,  such  as  CARDS(Comprehensive  Approach  for  Reusable  Defense  Software),  AdalC 
(Ada  Information  Clearinghouse),  DSRS  (Defense  Software  Repository  System),  and  ELSA 
(Electronic  Library  Services  &  Applications  Lobby). 

ASSET'S  goals  are  to  create  a  focal  point  for  software  reuse  information  exchange,  to 
advance  the  technology  of  software  reuse  and  to  provide  an  electronic  marketplace  for  reusable 
software  products  to  the  evolving  national  software  reuse  industry.  To  achieve  these  goals, 
ASSET  operates  the  Worldwide  Software  Resource  Discovery(WSRD)  Library,  and  Newsgroup 
services. 

The  ASSET  staff  are  constantly  working  to  catalog  and  add  new  reusable  software 
components  to  the  library.  Consequently,  to  determine  the  latest  contents  of  the  library  at  any 
time,  the  ASSET  account  holder  should  log  on  and  search  the  new  assets  listings. 

ASSET  is  populating  the  Worldwide  Software  Resource  Discovery(WSRD)  Library  with 
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quality  reusable  software  components,  which  can  be  distributed  to  its  subscribers.  The  library 
specializes  in  software  lifecycle  artifacts,  and  in  documents  written  specifically  to  promote 
software  reuse  and  development.  ASSET  also  interoperates  with  the  CARDS  and  DSRS  reuse 
libraries  thus  allowing  ASSET  users  access  to  a  larger  variety  of  components. 

ASSET  currently  uses  the  STARS  Reuse  Library  (SRL)  mechanism  as  its  library 
interface.  The  primary  purpose  of  the  SRL  is  to  serve  as  a  library  mechanism  for  the  operation 
of  a  software  reuse  library.  It  provides  a  search  mechanism,  using  a  combination  of  faceted  and 
attribute-value  classification  schemes,  for  finding  candidate  assets  from  the  reuse  library's 
collection.  Once  a  list  of  assets  has  been  obtained,  the  SRL  permits  the  user  to  browse 
through  the  descriptive  material  about  each  asset  as  well  as  through  the  source  files  of  the  asset. 
After  browsing  the  user  may  then  select  assets  for  extraction  from  the  library.  A  copy  of  the 
files  of  each  asset  being  extracted  are  then  made  available  to  the  user  for  immediate 
downloading  or  for  copying  to  their  own  local  directory  area. 

ASSET  has  implemented  its  initial  operating  concept  of  library  interoperation.  Using 
TCP/IP  protocol,  ASSET  shares  software  artifacts  with  the  CARDS  (Comprehensive  Approach 
for  Reusable  Defense  Software),  AdalC  (Ada  Information  Clearinghouse),  DSRS(Defense 
Software  Repository  System),  and  ELSA(Electronic  Library  Services  &  Applications  Lobby) 
repositories,  allowing  users  to  extract  components  from  any  of  the  above  libraries.  These  remote 
library  extractions  occur  transparently  to  the  user.  ASSET  is  continuing  efforts  to  broaden  its 
base  of  cooperating  libraries. 

2.  DRACO 

The  Draco  project[Ref.  22]  is  an  approach  to  software  engineering  that  has  had  a  large 
impact  on  software  reusability  in  general.  Draco  approach  focuses  on  domain  engineering  of  soft¬ 
ware. 

The  most  important  aspect  of  Draco  is  the  domain  language.  Software  components  are 
organized  into  problem  areas  or  domains  and  a  domain  language  describes  objects  and  operations 
of  a  particular  domain.  There  is  a  reusable  component  associated  with  each  domain  language 
object  or  operation.  Since  there  is  a  potentially  large  number  of  components  within  a  domain,  a 
classification  scheme  is  developed  for  the  components  called  faceted  classification  to  aid  in  orga¬ 
nizing  and  retrieving  the  components. 

Using  faceted  classification,  Draco  approach  utilizes  a  multi-attribute  query  method.  Que- 
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ries  are  constructed  by  the  formulation  of  a  tuple  of  attributes  that  best  characterizes  a  particular 
domain.  A  query  session  begins  with  the  most  specific  query,  that  is,  all  attributes  filled  in.  If  the 
results  of  the  query  are  unsatisfactory,  the  user  may  generalize  the  query  by  inserting  wildcards 
for  attribute  values. 

The  advantages  of  faceted  classification  are  that  it  is  conceptually  simple  for  users  and  rel¬ 
atively  easy  to  implement  Because  of  this,  the  concept  has  been  borrowed  to  implement  the 
retrieval  mechanisms  in  both  RAPID  (see  Chapter  II.C.3)  and  OSS  (see  Chapter  II.C.5). 

One  disadvantage  of  multi-attribute  search  is  that  semantically  similar  components  may 
not  be  found  when  their  attribute  definitions  are  different  Draco  alleviates  this  problem  by  main¬ 
taining  a  measure  of  conceptual  closeness  for  the  term  lists  of  each  attribute.  This  way,  an  unsuc¬ 
cessful  search  can  be  tried  again  using  an  alternative  but  similar  term  in  one  of  the  attributes. 

The  disadvantages  of  faceted  classification  are  that  it  is  not  suitable  for  unconstrained 
domains  and  semantically  similar  components  may  be  missed  from  other  domains,  even  with  a 
conceptual  closeness  measure. 

3.  RAPID 

The  RAPID  (Reusable  Ada  Packages  for  Information  System  Development)  project  is  an 
ongoing  effort  in  the  Department  of  Defense.  The  objective  of  RAPID  is  to  provide  software  engi¬ 
neers  with  quick  access  to  reusable  Ada  packages  in  the  information  systems  domain.  The  system 
performs  reusable  component  classification,  storage  and  retrieval. 

RAPID  uses  a  faceted  classification  scheme  to  organize  and  retrieve  components  and  thus 
uses  multi-attribute  searches  [Ref.  23],  The  system  is  currently  being  beta  tested  but  no  measures 
of  performance  or  quality  assessments  are  available  yet. 

4.  The  Reusable  Software  Library(RSL) 

The  Reusable  Software  Library  is  a  system  designed  to  make  software  reuse  an  integral 
part  of  the  software  development  process[Ref.  24].  The  system  couples  a  passive  software  data¬ 
base  with  interactive  software  design  tools  to  help  software  developers  find  and  evaluate  compo¬ 
nents  to  meet  their  requirements. 

Components  are  stored  in  the  database  with  attribute  values  that  provide  a  basis  for  search. 
There  are  two  methods  available  to  search  for  components,  standard  multi-attribute  search  and 
natural  language.  The  multi-attribute  approach  provides  a  menu  driven  interface  in  which  the  user 
selects  the  attributes  with  which  to  perform  the  search.  Alternatively,  the  user  may  express  his 


16 


query  in  the  form  of  natural  language,  such  as  “I  need  a  stack  package.”.  The  system  parses  the 
input,  extracts  keywords  from  it  and  uses  those  words  as  attributes  to  perform  the  search. 

The  designers  of  the  system  report  that  the  natural  language  front  end  is  considerably  eas¬ 
ier  to  use  but  the  search  is  significantly  slower,  by  a  factor  of  five  to  ten  because  of  the  natural  lan¬ 
guage  parsing  overhead  involved. 

5.  Operation  Support  System 

The  Operation  Support  System  (OSS)  is  an  ongoing  project  aimed  at  developing  an  inte¬ 
grated  software  engineering  environment  undertaken  by  Naval  Ocean  Systems  Center.  One  goal 
of  the  project  is  to  establish  a  Navy  software  library  of  reusable  software  components. 

The  current  prototype  library  subsystem  allows  component  retrieval  using  faceted  classifi¬ 
cation,  keywords,  or  a  textual  browser.  The  components  currently  stored  in  the  library  are  large 
command,  control,  and  communications  subsystems.  Since  the  library  is  in  its  early  stages,  no 
information  is  available  on  its  performance  characteristics. 

6.  CAPS 

The  CAPS  project  at  the  Naval  Postgraduate  School,  headed  by  Professors  Luqi,  Berzins 
and  Shing,  supports  rapid  prototyping  for  hard  real  time  embedded  systems.  CAPS  consists  of  an 
integrated  set  of  software  tools  that  help  design,  translate  and  execute  prototypes.  These  tools 
include  an  execution  support  system,  a  syntax  directed/graphical  editor,  an  evolution  control  sys¬ 
tem,  a  change  merge  facility,  and  facilities  to  support  retrieving  reusable  components  from  a  soft¬ 
ware  base.  The  execution  support  system  includes  a  scheduler  and  a  translator  for  automatic 
generators  for  schedule  and  control  code. 

PSDL  is  the  Prototyping  Description  Language  of  CAPS[Ref.  8];  it  is  used  to  specify  both 
prototypes  and  production  software.  PSDL  programs  have  two  kinds  of  objects,  corresponding  to 
abstract  data  types  and  abstract  state  machines;  they  localize  the  information  for  analyzing,  exe¬ 
cuting  and  reusing  independent  objects.  Executable  Ada  modules  can  be  associated  with  atomic 
PSDL  objects,  and  CAPS  can  automatically  generate  “glue"  code  that  composes  these  modules 
into  a  system  having  the  structure  described  by  PSDL.  This  generated  code  includes  a  schedule  to 
enforce  all  real  time  constraints  that  have  been  declared.  The  system  can  then  be  compiled,  exe¬ 
cuted,  and  tested.  Error  messages  are  produced  during  execution  if  constraints  are  violated.  Figure 
2  illustrates  a  prototyping  life-cycle.  It  shows  two  places  where  component  search  can  be  used  in 
such  a  life-cycle:  in  constructing  a  prototype  system  and  in  constructing  a  production  system. 
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Figure  2.  A  Prototyping  Lifecycle 


Some  work  has  done  in  the  CAPS  project  on  retrieving  software  components.  Dr.  Luqi 
suggested  the  use  of  specifications  in  retrieving  software  components[Ref.  17].  This  suggestion 
was  refined  in  later  work,  including  [Ref.  25]  and  Steigerwald's  Ph.D.  thesis  [Ref.  26].  In  [Ref. 

26]  it  is  assumed  that  each  component  has  a  fully  expanded5  algebraic  specification  written  in 
OBJ3  [Ref.  27,  28,  29],  and  that  the  user's  query  is  also  a  fully  expanded  algebraic  specification 
that  the  desired  component  should  satisfy.  A  Prolog  program  was  written  using  symbolic 
representations  of  signatures  to  find  syntactic  matches  between  the  signature  of  the  query  and 
the  signatures  of  components.  For  each  match  found,  a  semantic  validation  was  done  by 

evaluating  patterns  that  represent  the  functions  in  the  signature,  first  in  the  query  specification,6 
and  then  (after  translation)  in  the  specifications  of  the  matched  components;  the  results  of  these 


5.  This  means  that  the  results  of  any  module  expressions  inside  a  module  are  substituted  into  the  module. 

6.  These  patterns  are  terms  that  involve  those  functions,  plus  some  variables,  constants,  and  constructors, 
such  that  all  other  functional  expressions  are  instances. 


18 


two  evaluations  are  compared  to  determine  the  quality  of  each  match.  The  approach  developed 
in  this  series  of  papers  is  the  inspiration  for  the  approach  taken  in  the  present  dissertation. 

The  system  described  in  [Ref.  26]  has  certain  technical  limitations.  Its  semantic  basis  is 
not  well  developed.  Also,  evaluating  patterns  with  variables  gives  limited  information  about  the 
semantic  satisfaction  of  a  syntactic  match.  In  addition,  since  patterns  can  involve  variables  that 
may  or  may  not  be  eliminated  by  rewriting,  depending  on  syntactic  peculiarities  of  the 
equations,  it  seems  possible  to  have  semantically  equivalent  specifications  for  which  pattern 
evaluation  would  give  conflicting  answers,  so  that  the  match  in  question  will  appear  not  to 
satisfy  its  semantic  requirements  even  though  it  really  does.  In  addition,  the  approach  is  limited 
to  total  syntactic  matches  and  to  unparameterized  components. 

Ozdemir's  master's  thesis  [Ref.  9]  describes  a  component  retrieval  system  for  the  CAPS 
software  base  that  uses  keyword  search  and  a  browser.  Both  of  these  use  PSDL  for  queries  and 
for  components.  Ozdemir  also  provides  a  graphical  user  interface  and  facilities  for  integrating 
retrieved  components  into  prototype  systems,  including  techniques  for  transforming  retrieved 
modules.  A  better  developed  version  of  these  ideas  appears  in  the  master’s  thesis  of  Dolgoff 
[Ref.  30].  This  work  is  including  retrieval  of  generic  modules  and  handling  of  subsort  matching. 
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III.  MULTI-LEVEL  FILTERING  RETRIEVAL 


Multi-level  filtering  retrieval  technique(MLFRT)  is  a  new  software  component  searching 
process  developed  for  the  CAPS  software  base[Ref.  37].  It  is  the  combination  of  interactive  brows¬ 
ing,  informal  specification-based  and  formal  specification- based  methods.  Figure  3  describes  the 
Multi-level  filtering  architecture;  the  top  line  indicates  user  modification  of  the  query  in  light  of 
the  final  filtering  results. 


MATCHING 


MATCHING  PROCESS 


Figure  3.  An  Organization  Model  for  Software  Component  Search 

The  implementation  of  the  Multi-level  filtering  retrieval  process  is  separated  by  three  parts: 
the  graphical  user  interface,  the  retrieval  process  kernel,  and  the  data  storage.  This  thesis  is  part  of 
a  joint-research  project  with  two  other  CAPS  team  members;  Doan  Nguyen  who  made  the  major 
contribution  of  the  retrieval  kemel[Ref.  31]  and  Tuan  Nguyen  who  dealt  with  populating  the 
database  and  the  specification  axioms  transformation[Ref.  32],  This  thesis  concentrates  on  the 
front-end  graphical  user  interface  of  the  retrieval  module  and  the  inner  data  storage  design.  The 
final  payoff  of  the  joint  research  was  an  novel  application  for  accessing  the  software  base  within 
CAPS.  It  provides  a  significant  improvement  over  current  release  for  accessing  the  software  base. 

The  retrieval  kernel  of  the  Multi-level  filtering  retrieval  process  is  mainly  composed  of 
three  parts:  Syntactic  Matching  Filter,  Semantic  Matching  Filter,  and  Searching  Process.  The  query 
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specification  is  entered  through  the  graphical  user  interface(GUI)  and  sent  into  these  three  modules 
which  then  search  the  data  repository  for  candidate  components.  The  results  are  then  displayed  by 
the  interactive  browser  so  that  the  user  can  make  a  selection  decision.  The  whole  process  is  iterated 
until  the  user  gets  the  desired  component.  Once  a  target  has  been  reached,  the  software  reuse  work 
has  been  accomplished.  The  next  three  sections  will  discuss  the  Syntactic  Matching  Filter, 
Semantic  Matching  Filter  and  Searching  process  in  more  depth. 

A.  SYNTACTIC  MATCHING  FILTERING 

Syntactic  matching  filtering  is  based  on  non-behavioral  information  about  components, 
such  as  keywords  and  interface  declarations.  Here  we  use  two  levels  of  syntactic  filtering.  The 
first  level  uses  keyword  and  profile  matching  filters.  By  using  these  filters,  the  search  module 
computes  the  indexes  which  partition  the  software  library.  These  partitions  contain  the  candidate 
components.  This  filters  speed  up  signature  matching,  and  is  discussed  later.  The  second  level  is 
signature  matching  filter,  which  finds  the  maps  that  translate  the  type  and  function  symbols  of  the 
query  into  the  corresponding  type  and  function  symbols  of  the  candidate  components.  Later  on, 
the  search  module  will  compute  Profile  and  Keyword  Matching  Ratio  values  for  each  candidate 
component  and  then  combine  them  with  each  component’s  Signature  Matching  Ratio.  The  final 
combined  value  is  referred  to  as  KPS  which  stands  for  the  product  of  Keyword,  Profile,  and  Sig¬ 
nature  Matching  Ratio[Ref.  31].  The  matching  filters  mentioned  above  need  further  elaboration 
due  to  their  importance  and  are  discussed  below. 

1.  Keyword  Matching 

Even  though  keyword  matching  has  a  measurement  trade-off  problem(discussed  in  sec¬ 
tion  II.B.2.a),  it  is  still  a  useful  method  for  multi-level  filtering.  It  is  easy  to  use,  inexpensive  to 
implement,  and  good  for  indexing  components.  However,  we  have  to  use  keyword  filtering  care¬ 
fully  with  a  limited  number  of  general  keywords  that  are  controlled  by  a  system  administrator. 
Keywords  describe  categories  of  components  and  their  relationships  to  other  components.  Sam¬ 
ple  categories  might  be  data  structures,  mathematical  functions,  search  routines,  and  navigation 
functions. 

[Ref.  31]  proposed  the  following  measurement  function  to  indicate  how  close  the  key¬ 
words  of  a  query,  Kwq,  are  to  the  keywords  of  a  component,  KwM: 

KeywordMatchRatio(KwQ,  KwM)  =  | Kwq  nKWM\/\KWQ\  . 
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This  function  measures  recall.  The  numerator  represents  the  number  of  relevant 
retrieved  keywords  while  the  denominator  represents  the  total  number  of  relevant  keywords  in  a 
query. 

2.  Signature  Matching 

This  section  introduces  and  illustrates  the  basic  concepts  of  signature  matching,  under 
the  assumption  that  there  are  no  subsort  relations;  the  more  complex  situation  when  a  sort1 2  set  S 
has  subsorts  (i.e.,  a  partial  order  containment  relation  <  on  data  types).  We  assume  that  each 
component  M  in  the  library  has  an  associated  algebraic  specification  of  the  form: 

(S’,  Y,E), 

where  (S’,  Y  )  is  a  signature  with  a  set  S’  of  sorts  and  a  set  X'  of  functions  whose  argu¬ 
ments  and  results  have  sorts  in  S’,  and  where  E  is  a  set  of  equations  stating  properties  that  the 
functions  in  X'  should  satisfy. 

We  also  assume  that  query,  Q ,  is  an  algebraic  specification  of  the  form  (S,  x  ,  E)  where 
these  symbols  mean  the  same  as  tm-  The  following  illustrates  these  notions,  using  the  notation 

of  QBJ3  ;  definitions  for  signature,  specification,  etc. 

Example  1  The  algebraic  specification  for  a  module  defining  list  of  identifiers  in  our 
library  might  have  a  sort  set  S  containing  the  sorts  Id,  List,  and  Bool,  and  a  signature  X  of  func¬ 
tions  consisting  of  the  empty  list  (denoted  by  nil),  an  append  operation  *,  and  a  function  to  test 
whether  an  element  is  in  the  list,  with  the  following  syntax: 
sorts  Id  Bool  List 
op  nil  :  ->  List . 

op  :  Id  List  ->  List . 
op  _in_ :  Id  List  ->  Bool . 

According  to  OBJ3,  the  equations  in  the  specification  might  be: 

I  in  nil  =  false  . 


1.  It  means  “type”.  This  thesis  will  use  the  words  “sort”  and  “type”  interchangeably,  and  will  also  use  the 
words  “function”  and  “operation”  interchangeably. 

2.  OBJ3,  an  algebra  specification  language,  which  can  accurately  describe  the  semantic  behavior  of  soft¬ 
ware  components. 
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I  in  (I1  *  L)  =  if  (I  ==  I')  then  true  else  I  in  L  fi  . 

We  assume  that  the  library  has  a  set  of  basic  sorts  for  commonly  used  types  like  bool- 
eans,  identifiers,  integers,  and  floating  point  numbers;  that  the  names  of  these  basic  types  and 
their  associated  basic  operations  are  identical  in  the  specifications  and  in  the  code;  and  that  the 
library  modules  and  the  algebraic  specifications  for  the  basic  types  also  have  the  same  names. 

Definition  1  Given  two  signatures  (S,  x  )  and  (S',  x '),  a  permutative  signature  map  V: 
(S,  x  )  -» (  S’,  x  7  consists  of  injective  functions  V:  S  ->  S’  and  V:  x  X'  such  that  for  each 
function  symbol  /:  Sj...sn  ->  s  in  x,  there  is  a  permutation  rc  such  that  V(j)  : 

v(J*(i))  —  v'('sV('>))  is  a  function  symbol  in  X' .  A  partial  signature  match  v : 

(S,I)  ->  (S',  T)  is  a  permutative  signature  map  V:  (  S0,lg)  (S',X' )  where 

(Sg,  xo)  is  a  subsignature  of  ( s ,  X)  ;  it  is  total  if  (Sg,  xo)  =  (S,  X)  . 

The  assumption  that  V  is  injective  on  both  sorts  and  operations  is  reasonable  if  there  is 
no  subsort  relations,  because  otherwise  the  user  would  be  asking  for  two  or  more  things  that  are 
not  actually  different. 

Definition  2  Given  a  library  and  a  query  Q  =  ( s ,  x,  E)  ,  the  signature  choice  set  for  Q 
consists  of  all  signature  matches  v  :  (S,  X)  (S',  X')  where  tm  =  (S',  V,  E')  is  the  specifi¬ 

cation  of  some  component  M,  and  where  each  match  V  is  the  identity  mapping  when  restriction 
to  the  set  of  basic  types  and  their  basic  function  symbols.  Note  that  the  semantic  information  in 
the  equations  is  ignored  in  syntactic  matching.  To  simplify  notation  and  make  explicit  the  mod¬ 
ule  specification  associated  with  a  signature  match,  we  may  write  V:  Q  —>  for  a  signature 

match  V:  (S,  X)  ->  (S',  X')  such  that  tm  =  (S',  I',  E')  is  the  specification  of  a  component 

M. 

The  more  complex  situation  when  S  has  subsorts.  For  example,  a  partial  order  relation 
c:  is  illustrated  in  the  following  12  sort  sets: 

Suppose  that  we  have  12  sort  sets  Vj,  V2, . .  where 

Vj  =  {  A  } 

V2  =  {  A,  B  } 

V3  =  {  A,  B,  C  }  V4  =  {  A  ,B  ,  D  }  V5  =  {A,  B,  E  } 
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V8={A,  B,  C,  D,  E,  F  } 


V6  =  {  A,  B,  C,  D}  V7={  A,B,C,F} 

V9  =  {A,B,E,G}  V10={A,B,D,E} 

V n  =  {A,  B,  C,  D,  E,  G  }  V12  =  {A,  B,  C,  D,  E,  F  } 

Then  we  have  the  relation  c  as  follow: 


Vi 

—  v2 

V2 

eV3 

V2 

CV4 

v2 

^V5 

V3 

^v6 

v3 

c  V7 

v3 

cV8 

V4 

sv6 

V4 

cV8 

v4 

£V10 

V5 

£V8 

V5 

c  V9 

V5 

^V10 

V6 

CVn 

V7 

—  v12 

V8 

£V„ 

Y8 

^v12 

V9 

CV„ 

Vio 

£V12 

Figure  4  describes  the  Hasse  Diagram  of  these  12  sort  sets.  (A  review  of  Partial  Ordering 
Relations  and  Hasse  Diagram  concepts  is  given  in  Appendix  A) 


Figure  4.  A  Hasse  Diagram  for  the  Signature  Map  Refinement  Relation  c 
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Note  that  only  the  maximal  elements  Vn  and  V12  in  this  partial  ordering  are  of  interest. 
All  the  others  will  be  strictly  less  useful.  This  provides  a  pruning  criterion  for  signature 
matching. 

3.  Profile  Matching 

The  computations  for  signature  matching  would  be  very  expensive  if  it  were  necessary  to 
try  all  possible  ways  of  pairing  the  functions  and  sorts  of  queries  with  those  of  components.  It  is 
therefore  highly  desirable  to  cut  down  the  search  space.  This  can  be  done.  For  example,  if  a 
query  has  a  function  f.  AAB  and  a  component  has  a  function  g:  ABC  -^D  ,  then  it  is 

obvious  that  these  functions  cannot  match,  because  their  arguments  have  different  sort  patterns; 
there  is  no  need  to  compute  all  possible  sort  maps  to  draw  this  conclusion. 

The  purpose  of  profile  matching  is  to  speed  up  signature  matching.  Profile  matching  is 
actually  an  efficient  approximation  of  signature  matching.  A  profile  is  a  sequence  of  numbers 
that  describes  how  the  sorts  associated  with  an  operation  are  organized.  We  can  quickly  deter¬ 
mine  whether  two  given  operations  could  possibly  match  by  comparing  their  profiles,  and  hence 
quickly  identify  query  operations  and  test  cases  that  will  necessarily  fail.  Profile  matching  uses 
pre-computed  profile  indexes  to  partition  the  library,  and  profile  values  are  used  as  search  keys 
in  seeking  components  having  suitable  signatures. 

We  now  introduce  some  concepts  to  help  us  define  profiles.  The  sort  groups  of  an  opera¬ 
tion  are  bags  (i.e.,  multisets)  consisting  of  two  or  more  sort  occurrences  from  the  rank  (i.e.,  the 
argument  plus  value  sorts)  of  the  operation  that  are  related  under  the  relation  = ,  which  is  the 
transitive- symmetric  closure  of  the  ordering  c  on  sorts.  The  unrelated  sort  group  is  the  bag 

(actually  a  set)  of  all  sort  occurrences  that  are  not  in  any  sort  group. 

Definition  3  The  profile  of  an  operation  is  a  sequence  of  integers,  defined  as  follows: 

®  The  first  integer  is  the  total  number  of  occurrences  of  sorts. 

»  If  the  total  number  of  sort  groups,  N,  is  greater  than  0,  then  the  second  to  ( l  +  AO ,h 
integers  are  the  cardinalities  of  the  sort  groups,  in  descending  order. 

«  The  (2+N) th  integer  is  the  cardinality  of  the  unrelated  sort  group. 

«  The  (3  +N) th  integer  is: 

0  if  the  value  sort  is  different  from  any  of  the  argument  sorts;  and 
1  if  the  value  sort  belongs  to  some  sort  group. 
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A  signature  map  can  relate  two  operations  only  if  they  have  the  same  profile  (i.e.,  the 
same  number  of  sort  occurrences,  the  same  number  of  sort  groups,  the  same  sort  group  cardinali¬ 
ties,  and  the  same  unrelated  sort  group  cardinality). 

Some  sample  profiles  are  shown  in  Table  1,  where  A,  A',  B,  C,  E,  F,  G  are  sorts,  and  A'  is 
a  subsort  of  A: 


Operation 

Profile 

110 

EF^G 

330 

AA^B 

3210 

ABBCA  — >  C 

622201 

CCBAA->B 

622201 

CCBAA-+A 

63211 

CCBAAA'^A 

74211 

Table  1:  Some  Operations  and  their  Profiles 


For  the  operation  »A”: 

(1) .  There  is  only  one  occurrence  of  sort,  therefore  the  first  integer  is  1. 

(2) .  Since  there  is  no  sort  group  occurs  in  this  case(/V  =  0),  we  skip  the  cardinality  calcu¬ 
lating  rule  for  the  sort  groups. 

(3) .  The  cardinality  of  the  unrelated  sort  group  is  1,  so  the  (2  +  0)*  integer  is  1. 

(4) .  The  value(range)  sort  is  different  from  any  of  the  argument(domain)  sort,  therefore 

the  (3  +  0)*  integer  is  0. 

The  final  profile  of  this  operation  is  110. 

For  the  operation  “ABBCA— >C 

(1) .  There  are  six  occurrences  of  sorts,  therefore  the  first  integer  is  6. 

(2) .  By  the  definition  of  sort  groups,  there  are  three  sort  groups  AA,  BB  and  CC  in  this 

cast(N  =  3),  hence  the  second  to  (1  +  3)th  integers  are  the  cardinality  of  each  of  them  in  decreas¬ 
ing  order,  which  are  2,  2, 2. 


27 


(3) .  Since  there  is  no  unrelated  sort  groups  in  this  case,  the  (2  +  3)*  integer(the  cardinal¬ 
ity  of  the  unrelated  sort  groups)  is  0. 

(4) .  The  value(range)  sort  “A”  belongs  to  one  of  the  argument(domain)  sort  groups, 

therefor  the  (3  +  3)*  integer  is  1. 

The  final  profile  of  this  operation  is  622201. 

B.  SEMANTIC  MATCHING  FILTERING 

The  choice  set  of  signature  matches  for  a  query  can  be  further  narrowed  by  semantic 
matching  filter.  Under  certain  reasonable  assumptions,  this  can  be  done  efficiently  by  checking 
satisfaction  of  certain  semantic  conditions  that  are  necessary  for  any  correct  answer  to  the  query. 

We  discuss  only  unparameterized  specifications  here.  In  addition,  we  assume  throughout 
that  the  specifications  associated  with  components  have  equations  that  are  Church-Rosser  and  ter¬ 
minating.  This  means  we  can  apply  the  equations  from  left  to  right  to  simplify  a  term  to  a  unique 
simplest  possible  form,  called  its  canonical  form,  which  can  be  regarded  as  the  result  of  evaluat¬ 
ing  the  term.  For  example,  the  canonical  form  of  the  term, 
a  in  (b  *  (a  *  nil)) 

using  the  equations  in  Example  1  is  true. 

The  semantic  validation  procedure  takes  ground  equations  t=t'  from  the  query  specifica¬ 
tion  Q  and  tests  them  for  satisfaction  in  the  candidate  specifications.  Ground  equations ,  that  is, 
equations  whose  terms  have  no  variables,  are  particularly  useful  here,  because  any  ground  equa¬ 
tion  provable  from  an  equational  theory  Q  is  satisfied  by  the  standard  model  of  such  a  theory, 
i.e.,  the  initial  algebra  tq  of  Q,  so  that  those  equations  are  also  satisfied  under  the  initial  (stan¬ 
dard)  interpretation  of  Q. 

This  is  important  because  either  the  query  Q  or  the  component  specifications  tm  may 
have  an  initial  interpretation,  so  that  proving  the  semantic  correctness  of  a  signature  match  V: 
Q-*tm  could  require  complex  theorem  proving  to  check  inductive  consequences.  A  special 

property  of  ground  equations  is  that  their  translations  V(t)  =  V(t')  must  be  provable  from  tm  in 
order  for  V  to  be  correct,  regardless  of  whether  Q  and  tm  are  interpreted  initially  or  loosely. 
Therefore,  we  can  use  them  under  either  interpretation  to  further  restrict  the  search  for  correct 
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answers  to  the  query  Q.  The  great  advantage  of  ground  equation  is  that  we  can  automatically  set¬ 
tle  the  issue  of  whether  V(t)  =  V(f)  is  provable  from  tm  by  comparing  the  irreducible  forms  of 

V(t)  and  V(t')  after  rewriting  them  with  the  equations  in  TM  ,  since  TM  is  assumed  to  be  Church- 

Rosser  and  terminating.  This  results  in  an  efficient  decision  procedure  for  behavior  queries 
expressed  in  this  form. 

The  following  describes  how  to  rank  members  of  the  choice  set  based  on  semantic 
filtering. 

Since  many  signature  matches  for  a  query  might  be  found  in  a  large  library,  it  is  impor¬ 
tant  to  narrow  the  search  by  using  whatever  semantic  information  is  available  at  each  filtering 
stage,  either  from  the  specification  tm  ,  the  compiled  component  M,  or  both.  For  this,  a  sound 

way  of  ordering  the  matches  according  to  their  relative  degree  of  semantic  correctness  is  needed. 
We  define  below  two  measures  that  can  be  used  for  this  purpose.  These  measures  assign  a  value 
to  each  pair  (V,  iv )  consisting  of  a  signature  match  V  for  the  query  Q,  and  whatever  information 

iv  is  available  at  that  stage  about  equations  that  have  passed  or  failed  the  semantic  checks.  Such 

measures  can  be  used  independently  or  in  combination  to  define  choice  sets. 

Given  a  match  V,  the  information  iv  available  for  it  may  be  either  syntactic  or  semantic. 

Syntactic  information  will  include  the  functions  in  the  query's  signature  for  which  the  match  is 
defined  and  their  translation  under  such  a  match.  Semantic  information  will  include  the  results 
of  checking  correctness  of  ground  equations  after  translating  them  through  V.  For  each  such 
ground  equation  and  match  V  three  things  can  happen: 

•  The  translated  equation  is  well  defined  and,  after  reducing  each  side  to  normal  form 
using  the  equations  in  the  specification  of  the  module  matched  by  V,  yields  an  identity ; 
therefore  this  equation  has  succeeded  for  this  match; 

•  The  translated  equation  is  well  defined  and,  after  reducing  each  side  to  normal  form 
using  the  equations  in  the  specification  of  the  module  matched  by  V,  yields  an  equation 
whose  two  sides  are  different;  therefore  this  equation  has  failed  for  this  match; 

•  The  equation  could  not  be  translated,  because  the  match  V  was  undefined  for  some  of 
the  functions  appearing  in  the  terms  of  the  equation;  this  is  also  a  kind  of  failure. 

Note  that  we  can  associate  each  equation  with  a  function  symbol,  namely  the  top  function 
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symbol  of  its  left  side.  Therefore,  we  can  assume  that  the  semantic  information  in  iv  is  organized 

by  function  symbol  so  that  for  each  such  symbol  /  in  the  query's  signature  we  have  a  set  of 
ground  equations  for  it,  and  information  about  their  success  or  failure  for  the  match  V. 

The  first  measure  jx  assigns  to  each  pair  (VJv)  a  real-valued  function  v-(VJv)  :  o  9t  , 

where  a  is  the  signature  of  the  query  Q  ,  defined  as  follows: 

•  If  v oo  is  undefined,  then  \i,v  l  )if)  =0. 

®  V(f)  is  defined  but  has  no  ground  equations  associated  with  it,  then  (0=1  . 

♦  Otherwise,  Success  (f)  where  success  (J)  is  the  number  of  successful 

Equation  (J) 

checks  for  ground  equations  t  =  f  with  t  having  /  as  its  top  function  symbol 
reported  in  iv ,  Equations  (0  is  the  total  number  of  such  equations. 

Consider  now  two  different  matches  V  and  V’  for  the  same  query  Q,  and  suppose  that  the 
same  ground  equations  from  Q  have  been  tried  for  V  and  for  V’ .  Then  we  can  compare  the 
degree  of  success  of  these  matches  on  an  operation  by  operation  basis.  If  for  each  operation  sym¬ 
bol  /  we  have  ^  ix(r  , }  (f)  ,  then  V  is  an  altogether  better  match  than  V’ .  The  ideal 

situation  is  of  course  when  we  find  a  match  that  is  better  than  all  other  matches  in  exactly  this 
sense.  However,  such  an  absolutely  better  match  may  not  exist  in  the  library  and  we  may  only 
get  matches  that  are  maximal  in  their  degree  of  success,  that  is,  no  other  match  is  better  than 
them  for  all  functions.  This  can  happen  when  a  query  is  large  enough  that  two  or  more  parts  of 
the  required  functionality  are  available,  but  their  combination  is  not.  In  such  a  case  we  will  find 
several  maximal  signature  matches  that  are  each  best  for  some  fragment  of  the  functionality,  but 
are  incomparable  among  themselves  under  the  n  ordering.  An  appropriate  environment  could 
use  this  information  to  help  the  user  synthesize  an  optimal  combined  component 
out  of  actual  components  whose  corresponding  signature  matches  have  maximal  n  -measures. 

The  second  measure  SemanticMatchRatio  is  cmder.  It  is  obtained  from  the  first  by  assign¬ 
ing  to  each  pair  (VJv)  a  real  number  defined  by  the  equation: 
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SemanticMatchRatio  (V,Iv)  =  5 

fen  ’  v 

where  Q  is  the  signature  of  the  query  Q  . 

Once  we  obtain  a  SemanticMatchRatio  of  a  component,  we  can  compute  the  overall 
ComponentRank.  Since  Semantic  Matching  Ratio  is  the  most  significant  information  and  deriv¬ 
able  from  Profile  Matching  and  Signature  Matching,  it  is  important  that  we  order  the  component 
base  on  this.  Keyword  Match  Ratio  is  the  second  important  piece  of  information  due  to  how 
well  a  user  can  specify  the  keywords.  The  ComponentRank  is  then  a  2-tuple  of  matching  ratios 
with  lexicographic  ordering  and  is  defined  as  follows: 

•  A  component  which  has  a  higher  SemanticMatchRatio  is  ordered  first.  Componen¬ 
tRank  would  be  included  its  SemanticMatchRatio  and  KeywordMatchRatio. 

•  Any  components  which  have  the  same  SemanticMatchRatios,  then  a  component  with 
a  higher  KeywordMatchRatio  will  be  used  to  order  the  components.  Again  Compo¬ 
nentRank  would  be  included  its  SemanticMatchRatio  and  KeywordMatchRatio. 

C.  SEARCHING  PROCESS 

After  MLFRT  did  the  syntactic  matching  filtering  and  the  semantic  matching  filtering,  it 
needs  to  retrieve  the  candidate  components  from  the  physical  data  storage,  which  will  be  dis¬ 
cussed  in  chapter  VI.  There  should  be  two  important  data  that  reside  on  the  physical  data  storage. 
First,  the  data  used  for  matching.  Second,  the  data  used  for  importation  to  a  user’s  prototype.  The 
data  used  for  matching  are  specified  by  item  (a)  and  (b)  below.  Once  a  component  is  selected  by 
the  user,  the  data  used  for  importation  to  user’s  prototype  is  specified  by  item  (a),  (c),  and  (d). 
Therefore,  we  organize  the  physical  file  representation  of  a  software  base  component  as  follows: 

(a)  A  file  containing  a  PSDL  specification,  for  the  translation  and  scheduling  for  a  proto¬ 
type  using  the  component. 

(b)  A  file  containing  a  OBJ3  specification,  used  for  both  signature  and  semantic  matching. 

(c)  A  file  containing  an  Ada  specification,  which  is  imported  to  become  an  atomic  opera¬ 
tor’s  Ada  specification  in  a  prototype,  after  some  modifications. 

(d)  A  file  containing  an  Ada  body,  corresponding  to  the  semantic  part.  It  is  imported  to  a 
prototype,  to  become  an  atomic  operator’s  Ada  body,  after  some  modifications. 

This  organization  supports  traditional  graph  search  algorithms,  such  as  depth  first  search, 
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to  implement  DBMS  operations  such  as  initialize,  delete,  add,  and  retrieve.  There  could  also  be  a 
file  for  compiled  code,  which  could  replace  the  use  of  OBJ3  for  some  queries. 

The  following  algorithms  find  the  candidate  components  in  a  software  library: 

Algorithm  1  FindCandidateComponents 
Input: 

Q  =  (S,E). 

KwQ  =  {Query  Keyword  Ids}. 

G  =  (P,R)  where  P  =  {Partitions}  and  R  =  {Inclusive  relations}. 

ComponentLookupTable  =  Array  of  2-field  records:  Component  Keywords  and 
Component  Pointer. 

Output: 

CandidateTable  =  Array  of  3-field  records:  Component  Id,  Keyword  Matching  Ratio,  and 
Profile  Matching  Ratio. 

Invalid  Operations  =  {Invalid  Operations} 

(0)  Initialize  CandidateTable  to  empty. 

(1)  Compute  profile  value,  p,  for  each  operation  in  Q.S. 

(2)  For  each  profile  p,  verify  against  the  bottom  nodes  in  G.  If  Freq(p)  =0,  then  store  p  in 
Invalid  Operations. 

(3)  For  each  ground  equation  i  in  Q.E,  identify  its  associated  profiles  using  the 
correspondinn  operation’s  profile  values  found  in  step  (1).  Store  these  associated 
profiles  in  called  Gp(i).  (Note:  Gp(i)  is  an  array  of  multisets). 

(4)  Let  N  be  the  set  of  starting  nodes  that  contains  every  node  indexed  by  profile  multi-set 
of  size  one  that  is  included  in  the  query  profile. 

(5)  For  each  n  in  N,  call  DepthFirstSearchForward. 

(6)  Report  invalid  operation(s)  in  Invalid  Operations. 

Algorithm  2  DepthFirstSearchForward 
Input: 

G  =  (P,R)  where  P  =  {Partitions}  and  R  =  {Inclusive  relations}, 
v  =  An  element  of  P. 

CandidateTable  =  Array  of  3-field  records:  Component  Id,  Keyword  Matching  Ratio,  and 
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Profile  Matching  Ratio. 

Gp  =  {Gp(i),  where  Gp(i)  is  a  multiset  of  profile  in  a  ground  equation  i  in  Q.E} 
ComponentLookupTable  =  Array  of  2-field  records:  Component  Keywords  and 
Component  Pointer. 

Output: 

CandidateTable  =  Array  of  3-field  records:  Component  Id,  Keyword  Matching  Ratio,  and 
Profile  Matching  Ratio. 

(1)  Mark  v  visited.  Assign  Pv  with  Partition  v’s  profile  multiset. 

(2)  For  each  Gp(i)  in  Gp,  If  Gp(i)  contains  Pv  then 

Calculate  the  Profile  Match  Ratio. 

For  each  component  pointer  at  node  v  do 

Index  to  an  element  in  ComponentLookupTable. 

Calculate  the  Keyword  Match  Ratio. 

Store  Profile  and  Keyword  Match  Ratios  and 
ComponentID  in  CandidateTable. 

(3)  For  each  vertex  n  adjacent  and  above  v  do 

If  n  not  visited  then  DepthFirstSearchForward. 

D.  CONCLUSIONS 

The  multi-level  filtering  retrieval  process(MLFRP)  must  be  further  evaluated  and  imple¬ 
mented  for  more  practical  components  that  can  easily  map  to  the  real  world.  This  thesis  concen¬ 
trates  on  the  front-end  graphical  user  interface  of  this  MLFRP  and  the  physical  data  storage 
design  which  will  be  discussed  in  the  next  two  chapters.  Chapter  VI  discusses  the  conceptual 
design  for  the  physical  data  storage  of  the  reusable  software  components.  Chapter  V  discusses  the 
design  issue  and  the  implementation  detail  for  the  graphical  user  interface  of  MLFRP. 
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IV.  DATA  STORAGE  DESIGN 


Up  to  now  we  have  discussed  the  searching  process  and  multi-level  filtering  retrieval  tech- 
nique(MLFRT)  for  the  CAPS  software  database.  The  next  issue  addressed  in  this  thesis  is  making 
a  conceptual  design  of  a  physical  data  repository  for  the  reusable  software  components. 

A.  INTRODUCTION 

As  we  mentioned  in  chapter  II,  the  searching  process,  retrieval  technique  and  the  design  of 
data  repository  are  tied  together  in  the  research  of  software  reuse.  The  more  cohesive  the  design 
integrity,  the  better  efficiency  the  final  retrieval  performance.  [Ref.  31]  has  made  a  small  scale 
software  base  mock  up  which  stores  12  typical  data  structure  components  in  unix  based  files.  The 
experiment  in  Nguyen’s  work  showed  that  the  combination  of  the  multi-level  filtering  retrieval 
technique(MLFRT)  and  the  DFS  searching  algorithm  does  work.  It  also  showed  that  the  MLFRT 
is  the  best  candidate  for  searching  the  database  because  of  its  high  recall,  high  precision,  and 
reduced  search  time.  However,  this  result  has  been  validated  only  for  specific  data  structure  types. 
It  must  be  further  evaluated  and  implemented  for  more  practical  components  that  can  easily  map 
to  the  real  world.  This  chapter  discusses  the  conceptual  design  of  the  physical  data  storage  of  the 
reusable  software  components.  We  discuss  several  design  issues  based  on  the  previously  dis¬ 
cussed  searching  process  and  the  MLFRT.  Nevertheless,  the  separate  individual  implementation 
does  not  effect  the  integrity  of  this  conceptual  design. 

B.  REQUIREMENTS  ANALYSIS 

The  data  storage  of  the  CAPS  software  base  is  broken  into  three  sets  of  requirements.  It 
has  basic  requirements  which  cover  background  requirements,  system  requirements  which  are 
dictated  by  CAPS,  and  functional  requirements  which  necessitate  traditional  DB  support  func¬ 
tionality. 

1.  Basic  Requirements 

♦  Based  on  the  requirements  of  the  MLFRT,  the  data  storage  should  store  four  pieces 
of  source  code  for  each  component.  They  are  the  Ada  specification,  Ada  body, 
PSDL,  and  OBJ3  code. 

♦  The  database  schema  design  should  support  all  the  defined  terms  in  the  MLFRT 
module,  such  as  partial  ordering,  syntactic  matching,  signature  matching,  etc. 

♦  Because  of  the  dynamic  length  of  the  data  entries,  an  object-based  database  system 
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is  required. 

«  Because  of  the  highly  inter-related  attribute  characteristics  and  the  stringent 
requirements  for  searching  performance,  an  object-oriented  database  system  is 
required. 

*  The  software  component  repository  should  be  able  to  be  maintained  and  manipulated 
without  connecting  with  any  searching  engine  or  any  MLFRT  module  and  therefore 
a  direct  manipulation  interface  is  required. 

2.  System  Requirements 

Because  of  the  constraints  of  CAPS,  the  software  component  repository  should  meet  the 
following  system  requirements: 

♦  The  repository  must  be  accessible  in  the  unix  based  workstation,  such  as  Sun  or  Sol- 
borne  or  the  compatible  platforms. 

♦  The  repository  must  be  accessible  in  X-windows  or  the  compatible  windows  environ¬ 
ments. 

3.  Functional  Requirements 

•  The  software  component  repository  should  support  the  basic  database  manipulation 
functionality,  such  as  append,  delete,  modify,  browse,  backup,  etc. 

*  The  database  schema  should  accommodate  or  at  least  consider  the  flexibility  of  the 
multi-type  attributes  of  the  reusable  software  components,  such  as  data-structure,  GUI 
metaphors,  communications,  etc. 

C.  DESIGN  STRATEGIES 

Database  design  is  always  an  arguable  issue  in  that  many  different  designs  can  result  from 
the  same  requirements.  Implementations  too  can  vary  with  the  same  design.  This  feature  is  even 
worse  in  the  object-oriented  database  design  and  programming  area.  In  this  section  we  explores 
two  design  strategies  which  are  based  on  the  previous  requirement  analysis.  The  pros  and  cons  for 
each  strategy  are  also  discussed. 

The  first  strategy  is  used  in  the  mock  up  in  [Ref.  31].  Let’s  call  it  the  semi-automatic  facil- 
itative  software  component  repository.  This  strategy  picks  a  proper  object-oriented  database 

engine,1  such  as  ONTOS,  which  will  be  discussed  later,  to  be  the  storage  mechanism  for  the  soft¬ 
ware  components.  The  purpose  of  this  database  engine  is  to  deal  with  the  simple  database  I/O  pro- 
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cess  which  means  we  only  regard  it  as  a  data  storage  engine(just  for  storing/write  and  retrieval/ 
read  data).  In  such  a  strategy,  no  complicated  search  algorithm  will  be  involved  in  the  Database 
Manipulation  Language(DML)  of  the  database  engine,  which  in  this  case  is  C++.  This  means  we 
do  not  have  to  put  the  complete  database  schema  into  the  database  because  all  the  attribute  infor¬ 
mation  is  kept  in  another  small  fixed-length,  text-based  assistant(companion)  database.2  All 
searching  algorithms  must  be  applied  to  this  auxiliary  database.  Once  the  key  information  of  the 
candidate  components  have  been  gathered(such  as  physical  file  name,  component-ID  number, 
etc.),  the  software  base  system  passes  the  key  information  into  the  real  object  repository.  From 
this  point  it  connects  to  the  DML  for  accessing  the  I/O  process  of  the  desired  components. 

The  advantages  of  this  strategy  are  as  follow:  First,  the  reduced  involvement  with  the 
database  simplifies  data  storage  and  therefore  helps  keep  the  overall  task  of  the  DBMS  much  sim¬ 
pler.  Second,  it  isolates  the  implementation  tasks  between  the  searching  and  retrieval  process  and 
the  data  object  manipulating  actions.  It  helps  facilitate  better  database  transportability  for  the 
future  system  upgrading  or  porting  activity.  Third,  because  of  the  implementation-isolated  fea¬ 
ture,  the  searching  process  has  a  distinct,  uncoupled  refinement  space.  The  DML  independent 
characteristic  modularizes  the  development  of  the  searching  process  resulting  in  more  defined 
space  for  the  future  research.  It  also  meets  the  flexible  open  architecture  system  design  principle. 
However,  the  simpler  utilization  of  the  database  repository  also  have  several  disadvantages.  First, 
in  the  long  run,  the  DBMA(Database  Management  Administrator)  of  the  software  base  has  to 
manage  two  separate  databases  which  it  decreases  system  integrity  and  increases  the  overall  sys¬ 
tem  load.  Second,  no  matter  how  perfect  the  system  analysis  is,  the  interface  between  the  auxil¬ 
iary  database  and  the  major  data  repository  will  always  be  a  problem.  Some  overlapped 
manipulating  mechanism  might  be  developed  on  both  sides  due  to  the  duplicated  requirement 
analysis.  Third,  it  increases  the  system  un-interoperability  hazard  because  of  the  extra  connection 
task,  let  along  handling  the  speed  mismatch  between  different  languages(i.e.,  one  for  the  search¬ 
ing  process  and  one  for  the  DML  of  the  database  engine). 

The  second  strategy,  which  is  still  in  the  conceptual  design  stage,  grants  the  database 
engine  a  complete  manipulating  capability  over  the  software  components.  In  this  strategy,  a  com- 

1.  Engine  means  it  meets  or  it  supports  most  of  the  basic  database  facilitating  functionality,  yet  it  requires 
user  written  utilities  to  make  it  work  instead  of  the  intuitive  plug  and  run  activities. 

2.  It  might  be  a  unix-based-file  or  represented  by  any  other  formalism  such  as  a  sequential  file  or  a  direct 
access  file. 
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plete  data  object  schema3  analysis  needs  to  be  done  first  and  then  will  be  defined  with  the  Data¬ 
base  Definition  Language(DDL)  in  the  selected  object-oriented  database  engine.  The 
SBGUI(Software  Base  Graphical  User  Interface),  discussed  in  chapter  V,  directly  passes  the 
query  information,  which  is  taken  from  the  user,  into  the  database  engine  to  allow  the  DML  to 
conduct  the  searching  process. 

Basically,  the  advantages  of  the  second  strategy  are  the  opposite  of  the  first  strategy.  First, 
it  has  a  clean  and  easier  architecture.  As  in  most  current  existing  database  systems,  a  system 
architecture  like  this  usually  helps  make  maintenance  much  easier.  Second,  it  decreases  the  un¬ 
interoperability  hazard  between  the  SBGUI  and  the  real  data  repository.  Third,  it  reduces  the 
Database  Management  Administrator(DBMA)’s  overall  work  load  significantly  compared  to  that 
of  the  first  strategy.  Fourth,  there  is  less  chance  for  analysis  mistakes  between  the  SBGUI  and  the 
OODB  due  to  the  clear  roles  they  play. 

However,  the  disadvantages  are  not  so  obvious.  First,  the  implementation  is  harder 
because  of  the  dependency  of  the  DML.  Since  all  search  process  and  MLFRT  has  to  be  imple¬ 
mented  by  the  DML,  the  developer  must  become  intimately  familiar  with  the  DML  of  the 
OODBMS.  Second,  the  more  DML  involved,  the  less  database  transportability  available.  The 
DBMS  dependency  feature  also  restricts  the  future  system  upgrading  capability.  Third,  it  has 
lower  system  flexibility.  Once  the  search  algorithm  is  modified,  the  DML  has  to  be  rewritten.  Fig¬ 
ure  5  illustrates  the  concept  of  the  two  design  strategies. 


3.  In  C++,  it  is  called  Class. 
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DESIGN  STRATEGY  1 
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Figure  5.  Two  Design  Strategies  for  Software  Database 
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D.  EVALUATION 


Some  evaluation  work  has  been  done  for  these  two  strategies.  McDowell  used  the  second 
strategy  to  create  a  small  database  with  operator  component  objects  and  abstract  data  type  objects 
in  his  master  thesis[Ref.  33].  Dolgoff[Ref.  30]  improved  his  work  with  a  more  sophisticated  con¬ 
sideration  of  the  physical  schema  definition  and  more  precise  matching  process.4  Both  of  them 
used  the  ONTOS  OODBMS  to  be  the  database  storage  engine.  The  practical  developing  experi¬ 
ence  and  the  empirical  performance  told  us  that  further  improvement  is  getting  more  and  more 
difficult  because  of  the  strong  cohesive  feature  among  the  search  process  and  the  DML  code. 

The  experiment  in  [Ref.  31]  proved  the  MLFRT  is  the  best  candidate  search  process  for 
accessing  the  software  base.  However,  it  used  the  first  design  strategy  to  reach  the  theoretical 
proof  for  the  MLFRT  technique.  From  a  technical  point  of  view,  to  use  a  companion  database 
might  be  a  good  proposal  for  the  Decision  Support  System(DSS)  in  some  management  research 
areas,  yet  it  is  not  proper  for  implementing  a  mass  software  component  storage  system.  CAPS 
software  base  research  members  spent  a  great  deal  of  time  attempting  to  find  the  best  solution  to 
solve  the  complex  inter-related  data  representation  between  Ada  and  C++. 

[Ref.  34]  proposed  a  step  through  methodology  which  supports  a  smooth  bridge  control 
method  and  overcomes  the  integration  obstacles  between  Ada  and  C++;  where  Ada  is  the  major 
implementation  language  for  CAPS  and  C++  is  the  DML  of  the  ONTOS  database  engine.  By 
using  this  method,  the  empirical  implementation  for  the  searching  algorithm  acts  like  that  used  in 
the  first  strategy.  This  means  both  the  CAPS  implementation  language(Ada),  and  the  DML  for  the 
ONTOS  database  engine(C++),  are  involved  in  the  searching  algorithm.  However,  the  physical 
data  storage  design  strategy  acts  like  that  of  the  second  strategy,  which  means  there  is  no  compan¬ 
ion  database.  The  ONTOS  data  repository  will  be  the  only  database,  which  helps  the  system  inte¬ 
gration  and  reduces  the  over  all  work  load  for  the  DBMA.  Figure  6  illustrates  the  concept  of  the 
implementation  by  using  the  bridge  control  technique. 


4.  Scott  Joel  Dolgoff  proposed  an  ordering  matching  process,  which  includes  operator  component  match 
ordering  and  type  component  match  ordering. 
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Figure  6.  Practical  Implementation  Concept 
of  the  CAPS  Software  Database 

E.  IMPLEMENTATION  DETAIL 
1.  ADT  Design 

Since  this  thesis  concentrates  on  the  software  base  while  applying  the  multi-level  filtering 
retrieval  technique,  the  database  schema  must  meet  the  requirements  mentioned  earlier(Chapter 
V.B)  in  order  to  properly  support  the  database.  The  most  important  abstract  data  type(ADT)  we 
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have  to  define  for  the  software  base  is  the  Component,  which  is  the  physical  node  that  resides  in 
the  hasse  diagram  and  represents  a  real  software  component.  Figure  7  illustrates  the  Component 
class  definition  diagram. 
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2.  Bridge  Control  between  Ada  and  C++ 

Ada  is  used  by  CAPS  for  developing  the  rapid  prototypes  and  the  target  application.  How¬ 
ever,  currently  there  is  not  a  OODBMS  which  supports  Ada.  We  found  out  that  ONTOS  is  an  ade¬ 
quate  database  engine  that  meets  all  the  requirements  of  the  software  base.  The  only  problem  is 
that  it  is  based  on  C++,  which  raises  an  issue  for  the  implementation;  how  to  interface  the  com¬ 
munication  between  Ada  and  C++? 

[Ref.  30,  33]  had  tried  to  use  system  calls  to  solve  the  inter-communication  problem 
between  Ada  and  C++  in  their  software  base  mock  up  experiments.  Empirical  experience  showed 
that  implementation  in  this  way  is  quite  dangerous.  First,  by  using  system  calls,  it  is  not  easy  for 
the  caller  to  facilitate  all  of  the  functionalities  in  the  called  side.  Second,  as  this  would  be  a  highly 
interactive  system,  which  will  continue  to  use  system  calls  (Ada  calling  C++  or  C++  calling  Ada), 
many  errors  will  occur  due  to  the  parameter  passing  and  the  different  data  representation  between 
the  two  languages.  Many  unexpected  results  could  happen,  e.g.  constraint  errors  due  to  the  differ¬ 
ent  conventions  of  Ada  and  C++;  their  arrays,  strings,  numerators,  to  name  a  few.  Such  experi¬ 
ence  showed  that,  while  the  system  calls  might  be  a  good  method  for  triggering  another  unrelated 
executable  program  within  a  certain  application,  it  is  not  suitable  for  a  highly  inter-communicated 
system  like  the  situation  in  our  CAPS  software  database. 

A  better  way  to  solve  this  problem  is  to  allow  the  software  communicated  with  each  other 
via  the  C++  interface  package  in  Ada  (Interface.  C),  which  supports  importing  C  functions  into 
Ada  and  exporting  Ada  subprograms  to  C++[Ref.  35].  [Ref.  34]  has  successfully  developed  a 
bridge  control  technique  in  the  on-going  CAPS  Design  Database  research  by  using  the  C++  inter¬ 
face  library  in  Ada.  This  thesis  has  also  successfully  developed  a  software  base  mock  up  which 
meets  all  the  MLFRT  constraints  and  requirements  by  applying  the  same  bridge  control  tech¬ 
nique.  The  sources  code  of  the  mock  up  is  in  Appendix  B.  Figure  8  illustrates  a  sample  usage  of 
the  pragma  in  Ada  for  calling  C++  functions. 


procedure  ada_c_open_database(ddb  :  in  cstring) ; 
pragma  interface(C,ada_c_open_database) ; 

pragma  interface_name(ada_c_open_database,  "  ada  c  open  database _ FPc" ) ; 

Figure  8.  Sample  Ada  Interface  Pragma 
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The  key  point  of  the  bridge  control  technique  is  that  the  user  has  to  define  the  same  data 
types  and  data  operators  in  Ada  and  C++  simultaneously,  and  referenced  as  mirror  programs.  Fig¬ 
ure  9  illustrates  the  mirror  programs  in  the  mock  up  of  the  software  base. 


Component_s.a 

Component.h 

Component_b.a 

— 

Component.cxx 

Component_Interface_s.  a 

Component_Interface.h 

Component_Interface_b.  a 

Component_Interface.cxx 

Db_utility_s.a 

_ 

Db_utiltity.h 

Db_utilityjxa 

Db_utility.cxx 

Exception_Interf ace_s .  a 

Exception_Interface_.h 

Exception_Interface_b.a 

Exceptionjnterface.cxx 

Figure  9,  Mirror  Programs  in  CAPS  Software  Base 

Another  important  feature  of  the  bridge  control  technique  is  that  all  the  parameter  passing 
activities  are  called  by  reference.  By  using  such  a  strategy,  the  bridge  control  technique  success¬ 
fully  skips  all  of  the  tiny  data  representation  discrepancies  between  Ada  and  C++.  It  also  reduces 
the  potential  hazard  for  communication  errors.  Figure  10  illustrates  the  concept  of  the  calling 
module. 


Figure  10.  Calling  Module  of  the  Ada/C++  Bridge  Control 
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3.  Using  ONTOS 

ONTOS  is  a  powerful  object-oriented  database  management  system(OODBMS),  never¬ 
theless,  unlike  the  other  relational  database  management  systems,  there  is  no  Integrated  Develop¬ 
ment  Environment(IDE)  to  facilitate  easy  of  use.  This  limitation,  however,  is  common  throughout 
all  OODBMS(ex.  Omnisciences  OODBMS).  Part  of  the  reason  is  that  the  object  oriented  data¬ 
base  has  a  feature  of  highly  inter-related  attributes.  Because  of  this,  users  have  to  create  the  data¬ 
base  template  and  define  the  schema  by  writing  C++  code  and  then  commit  them  into  the  database 
themselves.  Therefore,  a  series  of  command  line  instructions  are  required  for  the  processing.  A 
quick  ONTOS  usage  manual  is  in  Appendix  C. 
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V.  GRAPHICAL  USER  INTERFACE 


Because  of  leaping  improvements  in  computer  soft/hardware  and  network  operating  sys¬ 
tem,  Graphical  User  Interfaces(GUI)  are  becoming  more  and  more  important.  The  purpose  of  a 
GUI  is  to  speed  up  the  software  exploration  operation,  help  user  to  sophisticatedly  manipulate  the 
designed  functionality  of  the  application,  and  support  a  user  friendly  interactive  environment. 
Excellent  software  without  a  well-designed  GUI  is  very  limited  and  sometimes  useless.  It  is  like  a 
Russian  astronaut  working  with  a  US  counterpart  on  the  space  shuttle.  They  both  are  from  excel¬ 
lent  space  programs,  but  if  they  don’t  speak  the  same  language,  nothing  is  accomplished.  The 
communication  obstacle  washes  out  the  well-trained  capability.  GUI  plays  the  same  role  of  com¬ 
munication,  only  between  users  and  software  applications. 

CAPS  is  a  set  of  many  individual  tools.  It  includes  the  Syntax  Direct  Editor,  PSDL  editor, 
graphical  editor,  user  interface  editor,  etc.  To  link  all  these  tools  together,  a  user  friendly  tool 
interface  is  needed,  so  that  the  user  can  effectively  utilize  the  CAPS  tool  set.  Thus,  how  to  select  a 
user  interface  tool  and  how  to  design  the  user  interface  itself  becomes  an  issue.  While  this  thesis 
concentrates  on  the  CAPS  software  base  and  techniques  to  implement  it,  some  attention  must  be 
focused  on  the  interface  to  the  software  base  in  order  for  it  to  be  as  effective  as  possible.  This 
chapter  was  designed  to  do  just  that. 

A.  REQUIREMENTS  ANALYSIS 

The  first  CAPS  Software  Base  Graphical  User  Interface(SBGUI)  was  developed  by 
Dogan  Ozdemir[Ref.  9].  Later  on,  Scott  Dolgoff[Ref.  30]  made  some  improvement  to  it  by  pro¬ 
viding  the  integration  of  software  base  operator  components.  This  thesis  makes  two  primary 
changes  to  their  work.  First,  it  includes  the  software  base  maintenance  issue.  Second,  the  design  is 
based  on  the  multi-level  filtering  retrieval  algorithm.  All  interactive  actions  are  driven  by  the 
multi-level  filtering  retrieval  theory. 

1.  Basic  Requirements 

SBGUI  should  meet  the  following  basic  requirements: 

•  Must  have  high  accommodation  for  a  wide  range  of  users  from  novice  to  expert 
users. 

•  Must  provide  on-line  help. 

•  Must  be  easy  to  learn  and  easy  to  use. 
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«  Must  provide  feedback  for  every  action. 

•  Must  provide  an  exit  route  for  each  level. 

®  Must  provide  enough  menu  driven  information  without  on-line  help  and  users 
manual. 

•  Must  support  message  display  and  recovery  handling  when  a  mistake  is  made 

•  Must  have  consistency  throughout. 

»  Must  follow  the  5  Principles1  of  Graphical  User  Interface  Design. 

2.  Functional  Requirements 

The  major  functionality  of  the  SBGUI  should  be  separated  into  two  parts:  User’s  prospec¬ 
tus  and  Database  Management  Administrator(DBMA)’s  Prospectus.  Figure  11  illustrates  the 
functional  architecture  analysis  of  the  SBGUI(On-Line  help  and  Exit  functionality  have  been 
implemented  but  are  not  shown).  From  the  users’  point  of  view,  the  main  concern  is  executing 
queries.  Therefore,  query  is  the  only  function  shown  in  Figure  11  under  the  users’  prospectus. 
Query  functionality  can  be  separated  into  Manual  and  Import.  Manual  means  that  the  user  has  to 
input  the  query  specification  manually.  Import  identifies  the  capability  of  searching  the  software 
library  based  on  the  specification  automatically  generated  from  the  SDE.  When  the  query  specifi¬ 
cation  is  accepted,  it  is  then  sent  into  the  Multi-Level  Filtering  Retrieval  module  to  search  the  data 
repository  for  candidate  components.  The  results  are  then  displayed  by  the  interactive  browser,  so 
that  the  user  can  make  a  selection  decision.  The  whole  process  will  be  iterated  until  the  user  gets 
the  desired  component.  In  the  DBMA’s  point  of  view,  software  base  maintenance  work  should 
include  library  creation,  selection,  deletion,  and  backup.  After  the  DBMA  selects  a  desired 
library,  s/he  should  be  able  to  append,  delete,  modify,  and  browse  software  components. 


1.  The  5  principles  for  Graphical  User  Interface  design,  proposed  by  Lewis  &  Riemann,  are  l.The  Cluster¬ 
ing  Principle.  2.The  Visibility  Reflects  Usefulness  Principle.  3.The  Intelligent  Consistency  Principle. 
4.The  Color  As  a  Supplement  Principle.  5.  The  Reduced  Clutter  Principle[Ref.  36]. 
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Figure  11.  Software  Base  GUI  Architecture  Analysis 


3.  User  Requirements 

Although  a  SBGUI  user  could  be  any  person  from  novice  to  an  expert,  we  made  some 
assumptions  to  narrow  the  range  of  user  in  order  to  get  better  utilization  of  the  software  base. 
These  assumptions  are: 

•  The  user  should  be  familiar  with  the  basic  operations  of  a  GUI,  such  as  mouse-driven, 
pull-down  menu,  drag  and  play,  etc. 
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•  The  user  should  have  some  fundamental  knowledge  of  the  algebraic  specification 
concept  and  at  least  one  algebraic  specification  language,  like  OB  J3,  etc 

•  The  user  should  have  a  basic  understanding  of  the  concepts  of  reusable  component 
retrieval  techniques. 

•  The  user  should  be  familiar  with  the  language  which  is  used  for  the  developing 
applications. 

4.  System  Requirements 

Since  CAPS  is  an  on-going  project  at  the  Naval  Postgraduate  School,  the  developed 
SBGUI  should  work  under  the  UNIX  based  workstation  such  as  SUN,  Solbome,  or  other  compat¬ 
ible  workstation  platforms.  It  should  also  run  in  the  X- windows  environment. 

B.  IMPLEMENTATION  DETAIL 

The  final  implementation  includes  55  Ada  programs,  of  which,  34  are  codes  generated  in 
the  TAE  plus  environment,  a  powerful  user  interface  assistant  tool.  The  remaining  21  programs 
are  originally  from  the  multi-level  retrieval  technique  research  in  [Ref.  31].  This  thesis  has  suc¬ 
cessfully  integrated  the  user  interface  code  for  X-terminals  and  the  MLFRT  kernel  code  together 
to  create  a  X-window  based  interactive  software  application.  The  software  users  manual  is  in 
Appendix  D.  The  TAE  Ada  source  code  is  in  the  Appendix  E. 
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VI.  CONCLUSION  AND  FUTURE  RESEARCH 


A.  CONCLUSION 

This  thesis  concentrates  on  the  user  interface  and  software  database  design  for  supporting 
the  multi-level  filtering  retrieval  technique.  The  user  interface  described  has  been  implemented, 
yet  it  has  not  been  integrated  into  CAPS.  A  key  piece  of  the  software  database  schema  has  been 
designed  and  validated,  making  follow-on  work  much  easier.  Also,  a  template  module,  which  suc¬ 
cessfully  addressed  the  language  mismatch  problem,  has  been  designed.  This  eliminating  the  larg¬ 
est  obstacle  in  implementing  the  software  base.  Figure  12  illustrates  the  kernels  of  the  software 
base. 


UNIX 


X-WINDOWS 


CAPS 


SOFTWARE  BASE 


SWB  USER  INTERFACE 

A 

SWB  Interface  Manipulating 
Kernel,  Developed  under 
\JAE  Plus  V5.3  with  Ada.  y 

^  "\ 

Searching  Process  Kernel, 

Multi-Level  Filtering  Retrieval 

Process,  Developed  with  Ada. 


Data  Storage  Repository  Kernel] 
Developed  under  ONTOS 
^VOODBMS  V2.1  with  C++. 


Figure  12.  Kernels  of  the  Software  Database 
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B.  FUTURE  RESEARCH 


There  axe  still  many  research  areas  following  the  work  in  this  thesis.  They  are  described  as 
follows: 

1.  Increase  Capability  for  More  Types  of  Software  Components 

Currently  the  software  base  system  contains  only  for  the  data  structure  components.  Such 
a  restriction  should  be  relaxed  in  order  to  accommodate  a  variety  of  types  of  software  components 
in  the  real  world,  such  as  communication  components,  window-manipulating  metaphor  compo¬ 
nents,  etc.  It  should  go  further  by  covering  the  software  architecture,  requirements,  documenta¬ 
tion,  users  manual,  etc. 

2.  Improve  the  Data  Schema  Design 

This  thesis  accomplished  a  component  schema  design  which  meets  the  requirements  of 
the  MLFRT,  and  developed  a  working  procedure  for  constructing  and  manipulating  the  physical 
data  repository.  However,  a  more  extensive  schema  design  is  still  needed,  covering  areas  such  as 
profiles,  bag_of_profiles,  etc.  The  database  schema  design  should  be  an  independent  research 
topic  in  order  to  get  complete  design  analysis  and  well-prepared  documentation  before  going  fur¬ 
ther. 

3.  Further  Improvement  for  the  Maintenance  of  the  Database 

This  point  is  related  to  the  previous  concern.  After  the  throughly  researched  data  schema 
design,  the  implementation  detail  might  be  changed.  The  importance  of  maintaining  the  database 
will  get  more  crucial  as  it  grows.  Because  of  this,  the  functionality  of  the  maintenance  work 
should  be  carefully  reconsidered. 

4.  Populating  the  Database 

According  the  convention  of  this  thesis,  there  should  be  four  attributes  in  each  software 
component:  Ada_Specification,  Ada_Body,  PSDL,  and  OBJ3.  The  Ada  code  currently  exists,  so 
the  PSDL  and  OBJ3  need  to  be  produced  by  some  particular  transformation  process.  [Ref.  32]  has 
done  the  transformation  for  about  100  sets  of  the  BOOCH  Ada  data  structure  components.  How¬ 
ever,  the  specification  language  OBJ3  is  not  intuitive  for  most  software  engineers.  Populating  the 
database  effectively  will  require  further  research  concerning  automatic  transformation  of  all  vari¬ 
eties  of  types  of  the  software  components. 
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3.  Testing 

An  extensive  empirical  study  for  the  MLFRT  is  need.  Under  the  situation  with  many  data 
entries,  the  practical  performance  is  unknown.  [Ref.  31]  performed  a  simple  study  to  validate  the 
MLFRT  theory  and  compared  its  performance  with  the  earlier  software  base  research.  It  showed  a 
high  recall,  high  precision,  and  shorter  search  time  but  was  based  on  a  small  mock  up  database. 
Further  testing  for  a  real  consolidated  database  is  needed. 

6.  Integrate  the  Retrieved  Components 

The  most  important  target  for  the  software  base  is  to  integrate  the  software  component 
into  the  rapid  prototyping  system.  Previous  research  about  the  software  component  integration 
was  to  contain  all  the  relative  information  into  a  so-called  Wrapper[Ref.  30]  which  serves  as  the 
bridge  between  the  software  base  component  and  the  PSDL  specification.  The  MLFRT  process 
computes  the  mapping  from  query  operations  and  types  to  the  corresponding  operations  and  types 
used  in  the  retrieved  component.  The  integration  process  should  be  modified  accordingly,  to  use 
this  computed  information  instead  of  asking  the  user  to  supply  it. 
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APPENDIX  A  -  PARTIAL  ORDERING  AND  HASSE  DIA¬ 
GRAM 


A.  PARTIAL  ORDERING 

We  often  use  relations  to  order  some  or  all  of  the  elements  of  sets.  For  instance,  we  order 
words  using  the  relation  containing  pairs  of  words  (x,  y)  where  x  comes  before  y  in  the  dictionary. 
We  schedule  projects  using  the  relation  consisting  of  pairs  (x,  y)  where  x  and  y  are  tasks  in  a  project 
such  that  x  must  be  completed  before  y  begins.  We  order  the  set  of  integers  using  the  relation  con¬ 
taining  the  pairs  (x,  y)  where  x  is  less  than  y.  When  we  add  all  of  the  pairs  of  the  form  (x,  x)  to 
these  relations,  we  obtain  a  relation  that  is  reflexive,  anti-symmeric,  and  transitive.  These  are  prop¬ 
erties  that  characterize  relations  used  to  order  the  elements  of  sets  using  their  relative  size. 

DEFINITION  1.  A  relation  R  on  a  set  S  is  called  a  partial  ordering  or  partial  order  if  it 
is  reflexive,  antisymmetric,  and  transitive.  A  set  S  together  with  a  partial  ordering  R  is  called  a 
partially  ordered  set,  or  poset,  and  is  denoted  by  (S,  R). 

In  a  poset  the  notation  a  <  b  denotes  that  (a,  b)  e  R  .  This  notation  is  used  because  the 
"less  than  or  equal  to”  relation  is  a  paradigm  for  a  partial  ordering.  (Note  that  the  symbol  is  used 
to  denote  the  relation  in  any  poset,  not  just  the  "less  than  or  equals"  relation.)  The  notation 
a  <  b  means  that  a<b,  but  a  ^  b.  Also,  we  say  "a  is  less  than  b"  or  "b  is  greater  than  a"  if 
a<b  . 

When  a  and  b  are  elements  of  the  poset  (S,  <  ) ,  it  is  not  necessary  that  either  a  <  b  or 
b  <  a.  For  instance,  in  (P(Z),  c  ),  { 1,  2}  is  not  related  to  {1,3},  and  vice  versa,  since  neither  set 

is  contained  within  the  other.  Similarly,  in  (Z,  0,2  is  not  related  to  3  and  3  is  not  related  to  2, 
since  2T3  and  3T  2.  This  leads  to  the  following  definition. 

DEFINITION  2.  The  elements  a  and  b  of  a  poset  (&  <  )  are  called  comparable  if 
either  a  <  b  or  b  <  a .  When  a  and  b  are  elements  of  S  such  that  neither  a<b  nor  b  <  a ,  a  and  b 
are  called  incomparable. 

B.  HASSE  DIAGRAMS 

Many  edges  in  the  directed  graph  for  a  finite  poset  do  not  have  to  be  shown  since  they 
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must  be  present.  For  instance,  consider  the  directed  graph  for  the  partial  ordering 
{  (a,  b)  | a<b)\  on  the  set  {1,  2,  3,  4},  shown  in  Figure  13(a).  Since  this  relation  is  a  partial 
ordering,  it  is  reflexive,  and  its  directed  graph  has  loops  at  all  vertices.  Consequently,  we  do  not 
have  to  show  these  loops  since  they  must  be  present;  in  Figure  13(b)  loops  are  not  shown. 
Because  a  partial  ordering  is  transitive,  we  do  not  have  to  show  those  edges  that  must  be  present 
because  of  transitivity. 


Figure  13.  Constructing  the  Hasse  Diagram  for  ({1, 2, 3, 4},  <=). 

For  example,  in  Figure  13(c)  the  edges  (1,  3),  (1,  4),  and  (2,  4)  are  not  shown  since  they 
must  be  present.  If  we  assume  that  all  edges  are  pointed  "upward"  (as  they  are  drawn  in  the  fig¬ 
ure),  we  do  not  have  to  show  the  directions  of  the  edges;  Figure  13(c)  does  not  show  directions. 

In  general,  we  can  represent  a  partial  ordering  on  a  set  using  the  following  procedure. 
Start  with  the  directed  graph  for  this  relation.  Because  a  partial  ordering  is  reflexive,  a  loop  is 
present  at  every  vertex.  Remove  these  loops.  Remove  all  edges  that  must  be  present  because  of 
the  transitivity,  since  they  must  be  present  since  a  partial  ordering  is  transitive.  For  instance,  if 
(a,  b)  and  (b,  c)  are  in  the  partial  ordering,  remove  the  edge  (a,  c),  since  it  must  be  present  also. 
Furthermore,  if  (c,  d)  is  also  in  the  partial  ordering,  remove  the  edge(a,d),  since  is  must  be 
present  also.  Finally,  arrange  each  edge  so  that  its  initial  edge  is  below  its  terminal  edge(as  it  is 
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drawn  on  paper).  Remove  all  the  arrows  on  the  directed  edges,  since  all  edges  point  "upward" 
toward  their  terminal  vertex. 

These  steps  are  well-defined,  and  only  a  finite  number  of  steps  need  to  be  carried  out 
for  a  finite  poset.  When  all  the  steps  have  been  taken,  the  resulting  diagram  contains  sufficient 
information  to  find  the  partial  ordering.  This  diagram  is  called  a  Hasse  Diagram,  named  after  the 
20th  century  German  mathematician  Helmut  Hasse. 
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APPENDIX  B  -  DATABASE  DESIGN  SOURCE  CODE 

(ADA/C ++) 


A.  Ada  Source  Code 


--  Component 
- -  Author 
--  Date 
- -  Language 
--  Compiler 
--  Description 


--  Purpose 
C+  + 

defined 

also 


Component_PKG  Spec 
Ruey-Wen  (Vincent)  Hong 
March  6,  1996 
Ada 

caps -suns 7  SunAda 

The  Ada  spec  mirror  program  for  Ada/C++  Bridge  Control 
The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

This  package  spec  represents  an  Ada  mirrored  image  for  the 

class  "Component".  It  encpsolates  all  operations  and  types 

over  Component  in  a  way  making  an  Abstract  Data  Type  of  it . It 

defines  the  interface  between  Ada  operations  defined  over 
Component  and  the  coresponding  C++  operations. 

Procedure  names  are  given  followed  by  their  interface 
(C  in  all  cases)  and  interface  names.  The  a. Id  pre-link 
link_with  pragmas  are  given  in  the  file  link_with_pragmas . a 


Refer  to  this  PKG  body  for  some  other  detail  regarding  the 
Conventions  used  for  subprograms  names 


The  method  used  to  interface  Ada  and  C++  code  is  as  follow: 


1-  compile  your  C++  code  you  like  to  interface  Ada  to  using  a 
C++  compiler 

2-  use  the  Unix  nm  command  to  get  the  symbolic  name  of  the 
subroutine  you  like  to  link  your  Ada  to  using 
"pragma_interface"  and  pragme__interf  ace_name .  Choose  the 
symbolic  name  which  is  preceeded  by  "T".  Use  the  symbolic 
name  in  the  pragma  interf ace_name  and  the  C++  subroutine 
name  in  the  pragma  interface. 

3-  use  link_with_pragma  to  pre-link  with  the  C++  object  code 
in  each  of  the  files  containing  that  code  (.o)  files.  These 
link  with  pragmas  are  included  in  the  file 

link  with  pragmas. a  for  this  experimental  application 
template 


--  Example  ;  Suppose  you  have  an  Ada  function  called  ada__new_Component  and 
you  have  a  C++  function  that  implements  the  Ada  function  called 
c_new__Component  and  the  object  code  for  the  C++  function  is 
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in  the  file  Component_intef ace .o  and  now  you  want  to 

interface  the 

Ada  function  to  the  coresponding  C++  function  : 


(.o) 


1-  Assuming  Your  C++  code  is  already  compiled  and  you  have  the 
file (s ) . 


2  use  nm: 

>nm  -ao  Component_intef ace .o  I  grep  "c_new_C omponent" 

-  The  output  will  be  a  punch  of  names  as  follows: 

--  Component_interf ace. o: 0000 06c8  T  _c_new_Component _ FPciT2 

--  Componen t_int erf ace . o : 00000000  -  0  0  00  00  LSYM  c_new_Component FPciT2  :ZtF 

--  Component^interf ace . o: 000006c8  -  00  001c  FUN 
c_new_Component _ FPciT2 :F ( 0, 1 

-  Choose  the  first  one  (preceeded  by  "T"): 

"_c_new_Component _ FPciT2"  as  the  symbolic  name. 

Note  :  for  details  about  why  this  symbolic  name  look  this 
strange,  refer  to  a  paper  by  Bjarne  Stroustrup 
titled  "Type-safe  Linkage  for  C++"...  by  the  way  C++ 
is  one  of  his  contributions. 


-  Now  in  your  ada  code,  all  you  need  is  the  following 

:  in  c_string; 

:  in  integer  ; 

:  in  integer  ) 

return  component; 

pragma  interface (C, c_new_component ) ;  —  C++  subroutine  name 

pragma  interf ace_name ( c_new_component , 
c__new_c omponent _ FPciT2")  ; 

-  This  way  you  got  an  Ada  function  called  ada_new_c omponent 
so  when  you  say  somewhere  in  you  Ada  code: 
ada_new_c omponent  ( s ome_name ,  some_integer,  another_integer ) 
you  are  actually  calling  the  coresponding  C++  function: 
c_new_c omponent 

3-  Now  for  step  #3  you  have  3  ways  to  link  with  the  C++  relevant 
object  files  : 

-  use  withn  (not  recommended  by  Ada  documentations) 

-  supply  the  C++  (.o)  files  in  the  command 
line  as  opetions  to  a. Id  ,  this  is  doable  and 
can  be  included  in  the  Makefile 


Funct i on  ada_new_c omponent ( name 

level 

status 


-  The  way  I'm  using  is  to  use  link_with  pragma  to 
link  to  the  desired  (.o)  file 

ex:  pragma  link_with ("Component__interf ace . o" ) ; 

I've  included  all  such  pragma  link_with  in  the  file 
link_with_pragmas . a  and  then  my  top  level  driver  (interface) 
includes  a  "with  link_with_pragmas_PKG" 
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with  a_strings; 
use  a_strings; 

with  except Ion_interface_PKG; 
use  except ion_interf ace_PKG; 

package  Component_PKG  is 

type  Component__record  is  private; 


type  Component  is  access  Component_record; 


Function  new_Component (name 

psdl 

ada_spec 

ada_body 

obj 

Function  get__Component  (name 

Function  GetComponentName (d 

procedure  SetComponentName (Name 

d 


:  in  a_string; 

:  in  a_string; 

:  in  a_string; 

:  in  a_string; 

:  in  a_string  )  return  Component; 

:  in  a_string)  return  Component; 

:  in  Component)  return  a_string; 

:  in  a_string; 

:  in  Component) ; 


procedure  PutComponent (d  :  in  Component  ) ; 


--  Component  ITERATOR 

--  The  following  operations  lumps  an  iterator  suitable  for  looping  through 
--  instances  of  the  Component  class  and  returning  each  of  these  instances 
--  The  following  syntax  of  the  Instance  Iterator,  although  Is  given  for 
--  the  Component  Type,  it  is  general  enough  to  apply  to  any  other  TYPE  under 
—  conditition  the  Type  MUST  be  classified  into  the  DB  (using  Ontos  CLASSIFY 
--  utility)  with  the  +X  switch  so  that  Ontos  will  maintain  an  aggregate  of  all 
--  instance  of  that  TYPE,  in  this  case  the  Type  is  called  "has  an  EXTENSION" 

.  .  refer  to  ONTOS  DB  Tools  and  Utilities  Guide  Ch3 . 

--  WATCH  OUT  though  that  using  +X  swith  has  a  perfomance  degradation  penality, 
--  it  slows  down  the  application. 

--  The  syntax  of  using  this  iterator  is  as  follows 

Component_Iter  :=  CREATE_I TERATOR  (  type_name  ); 

While  Has_More_E lement s (Component_Iter )  loop 
Component__Ob ject  :=  Get_Next_E lement  (Component__Iter ) 
do  something  with  Component_Ob ject 


end  loop 
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You  can  also  issue: 


same 


RESET_ITERATOR (Component_Iter)  :  to  re-iterate 
DELETE_ITERATOR  ( Comp onent__I ter )  :  to  deallocate  memory 

Note  also  that  Component_Iter  and  Component_Ob j ect  are  of  the 
type:  Component  of  this  PKG 


Function  Create__Instance_Iterator  (type__name  ;  in  a__string  )  return 
Component ; 

Function  Get_Next_Element  (d  :  in  Component  )  return  Component; 
procedure  Reset__Iterator  (d  :  in  Component;  type__name  :  in  a_string  ); 
procedure  Destroy_Iterator (d  :  in  Component  ); 

Function  Has_More„Elements (d  :  in  Component  )  return  BOOLEAN ; 


—  EXCEPTIONS 

““  The  2  Exceptions  "no_such_ob ject"  and  "object_already_exists"  applies  to 
--  all  persistent  types,  that  is  why  they  are  included  in  a  separate  PKG 
--  "exception_interf ace_PKG" ,  so  they  can  be  visible  to  all  types. 

--  Renaming  both  here  is  a  matter  of  readability  to  know  that  we  are 
--  talking  about  Component  Objects. 

no_such_Component  :  exception  renames  no_such_ob ject ; 

Component__already_exists  :  exception  renames  ob ject_al ready _exists; 


private 

type  Component _record  is  record 
null; 

end  record; 
end  Component_PKG; 


- -  Component 
--  Author 
--  Date 
- -  Language 
--  Compiler 


Component_PKG  Spec 
Ruey-Wen  (Vincent)  Hong 
March  6,  1996 
Ada 

caps-suns7  SunAda 
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--  Description  :  The  Ada  mirror  program  for  Ada/C++  Bridge  Control 

Purpose  :  This  package  Body  represents  an  Ada  mirrored  image  for  the 

C+  + 


class  "Component".  It  encpsolates  all  operations  and  types 

defined 

over  Component  in  a  way  making  an  abstract  DT  of  it. It  also 
defines  the  interface  between  Ada  operations  defined  over 
Component  and  the  coresponding  C++  operations. 

Procedure  names  are  given  followed  by  their  interface 
(C  in  all  cases)  and  interface  name.  The  a. Id  pre-link 
link_with  pragmas  are  also  given. 


Naming  Conventions  used  for  subprograms  names  are  as  follows: 


subprograms 


1.  Subprograms  interfacing  to  coresponding  C++  subprograms 
have  the  same  name  as  the  the  coresponding  C++ 

and  these  names  are  identified  by  the  prefix  "ada_c_" 

2.  The  Ada  subprograms  implementing  the  functionality  of  the 
subprograms  in  1.  and  do  not  include  the  interface  detail 
like  pragmas  and  c_st rings  are  given  the  same  name  as  the 
coresponding  subprograms  in  1.  above  without  the  prfix. 


Refer  to  this  PKG  Spec  for  some  other  detail  regarding  the  way 
I  used  to  interface  Ada  to  a  C++  code. 


with  a_st rings; 
use  a_strings; 

with  c_st rings; 
use  c_strings; 

with  db_utility__PKG; 
use  db_utility__PKG; 

with  text_io; 
use  text_io; 

with  except ion_interface_PKG; 
use  except ion_interface_PKG; 

package  body  Component_PKG  is 


Function  ada_c_new_Component  (name 

psdl 

ada_spec 

ada_body 

obj 


:  in  c_string; 

:  in  c_string; 

:  in  c_string; 

:  in  c_string; 

:  in  c__string  )  return  Component; 


pragma  interface  (C,  ada_c__new_Component )  ; 
pragma  int erf ace_name ( ada_c_new_Component , 
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"  ada  c  new  Component  FPciT2 " )  ; 


Function  new_Component  (name  : 

psdl  : 
ada_spec  : 
ada_body  : 
obj  : 


in  a_string; 
in  a_string; 
in  a__string; 
in  a_string; 

in  a_string  )  return  Component  is 


C_name 

C__psdl 

C_ada_spec 

C_ada_body 

C_obj 

d 


c_string  := 
c_string  :  = 
c_string  := 
c_strlng  := 
c_string  := 
Component ; 


to_c  (name)  ; 
to_c (psdl) ; 
to_c (ada_spec) ; 
to_c  (ada__body)  ; 
to_c (obj ) ; 


begin 


d  :=  ada_c_new_Component  (C_name,  C_psdl,  C_ada_spec,  C_ada_body, 

C_ob  j  )  ; 


case  get_exception_code  is 

when  norma l_code  => 

null; 

when  obj ect_already__exists_code  => 

raise  Component_already_exi  sts ; 
when  others  => 

raise  ONTOS_Failure; 

end  case; 
return  d; 

end  new_Component ; 


Function  ada_c_f ind_Component ( name  :  in  c_string)  return  Component; 

pragma  interface (C, ada_c_f ind_Component ) ; 
pragma  interf  ace_name  ( ada_c_f  ind_Component , 

"_ada_c__f  ind_Component _ FPc" )  ; 


Function  get__Component  (name  :  in  a_string)  return  Component  is 

C_name  :  c_string  :=  to_c(name); 

d  :  Component ; 


begin 

d  :  -  ada_c_f  ind_Component  (C_name) ; 
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case  get_exception__code  is 
when  norma l_c ode 
null; 

when  no_such_object_code 

raise  no_such_Component ; 
when  others 

raise  ONTOS_Failure; 

end  case; 


return  d; 

end  get_Component ; 


Function  a  da_c_Get  ComponentName  (d  ;  in  Component)  return  c_string; 

pragma  int  erf  ace  (C,  ada_c_Get  ComponentName)  ; 
pragma  inter f  ace__name  ( ada_c_Get ComponentName , 

"_ada_c_Get  Component  Name _ FP6Component " )  ; 


Function  Get ComponentName (d  :  in  Component)  return  a_string  is 
a_name  :  a_string  :  =  to_a  (ada_c_Get ComponentName  (d)  )  ; 

begin 


case  get_exception_code  is 
when  norma l_code 
null; 

when  no_such_ob j  ect_code 

raise  no_such_Component ; 
when  others 

raise  ONTOS_Failure; 


end  case; 


=  > 


=  > 


=  > 


return  a_name; 


end  Get  ComponentName; 


procedure  ada_c_SetComponentName ( 

Name  :  in  c__string; 

d  :  in  Component ) ; 

pragma  interface  (C,  ada_c_Set ComponentName)  ; 
pragma  inter face_name  ( ada_c_SetComponentName r 

"__ada_c_Set ComponentName _ FP cP  6 Component " )  ; 
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procedure  Set ComponentName (Name  ;  in  a_string; 

d  :  in  Component  )  is 

C_name  :  c_string  :=  to_c (Name)  ; 

begin 

ada_c_Set  ComponentName  (C_name,  d)  ; 

case  get_exception_code  is 

when  norma  l_c  ode  => 

nul  1 ; 

when  no_such_ob  j  ect__code  -> 

raise  no_such_Component ; 
when  others  => 

raise  ONTOS_Failure ; 

end  case; 

end  SetComponentName; 


procedure  Put Component (d  :  in  Component)  is 

--  The  following  2  instantiations  are  for  output ing 

--  expertise_level  and  status  values  respectively 

begin 

transact ion_start ; 

PUT  ("Component  Name  is  "); 

PUT  (Get  ComponentName  (d)  .  s)  ; 

NEWSLINE; 

transact  ion_cornmit  ; 
end  PutComponent ; 


- -  Component  ITERATOR 

Function  ada_c__Create_Instance__Iterator (type_name  :  in  c_string) 

return  Component; 

pragma  interface (C , ada_c_Create_Instance_Iterator ) ; 
pragma  interf ace_name (ada__c_Create_Instance_Iterator, 

"_ada_c_Create__Instance_Iterator _ FPc" )  ; 


Function  Create_Instance_Iterator (type_name  :  in  a_string) 


return 
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Component  is 


begin 


ada_c_Create_Instance__Iterator  (to_c  (type_name) )  ; 


return 


end  Create_Instance_Iterator; 


Function  ada_c_Get_Next_Element  (d  :  in  Component)  return  Component; 

pragma  interface  (C,  ada__c_Get_Next_Element )  ; 
pragma  int erf ace_name  ( ada_c_Get_Next_Element , 

"_ada_c_Get_Next_Element _ FP16InstanceIterator" )  ; 


Function  Get_Next_Element  (d  :  in  Component)  return  Component  is 


begin 


ada__c__Get_Next_Element  (d)  ; 


return 


end  Get_Next_Element ; 


procedure  ada_c_JReset_Iterator  (d  :  in  Component;  type_name  :  in  c_string)  ; 

pragma  interface  (C,  ada_c_Reset__Iterator) ; 
pragma  int erf ace_name (ada_c_Reset_Iterator , 

"_ada_c_Reset_Iterator _ FP16InstanceIteratorPc" ) ; 


procedure  Reset_Iterator (d  :  in  Component;  type_name  :  in  a_string)  is 


begin 


to_c  (type_name)  )  ; 


ada_c_Reset_Iterator (dr 


end  Reset_Iterator ; 


procedure  ada_c_Destroy_Iterator (d  :  in  Component) ; 

pragma  interface (C7  ada_c_Destroy_Iterator ) ; 
pragma  interf ace_name (  ada_c_Destroy_Iterator, 
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"__ada_c_Destroy_Iterator _ FP16InstanceIterator" ) ; 


procedure  Destroy_Iterator (d  :  In  Component)  is 

begin 


ada_c_Des  t  r  oy__I  t  e  rat  o  r  ( d ) 


end  Destroy_Iterator ; 


Function  ada__c_Has_More_Elements (d  :  in  Component)  return  BOOLEAN; 


pragma  interface (C, ada_c_Has_More_E lement s ) ; 
pragma  interf  ace_name  ( ada_c__Ha s_Mo r e_E lement s , 

"_ada_c_Has_More_Elements _ FP16InstanceIterator" )  ; 

Function  Ha s_More_E lement s (d  :  in  Component)  return  BOOLEAN  is 

begin 


ada_c_Has_More_E laments  (d)  ; 


return 


end  Has_More_E lement s  ; 


end  Component__PKG; 


- -  Component 
--  Author 
--  Date 
--  Language 
--  Compiler 


Component__ops .  a 
Ruey-Wen  (Vincent)  Hong 
March  6,  1996 
Ada 

caps-suns7  SunAda 


--  Description  :  The  Ada  mirror  program  for  Ada/C++  Bridge  Control 

The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 


This  module  has  originally  appeared  in  ECS  under  the  same 
name  ( Component_ops . a)  and  was  coded  completely  in  C++ 

I  translated  it  into  Ada  to  examine  the  possibilty  of 
directly  using  C++  classes  from  inside  ADA  and  thus 
testing  the  new  approach.  It  should  be  noted  that  without 
the  new  approach  of  interfacing  Ada  to  C++,  this  module 
could  not  be  coded  in  Ada 

This  Ada  module  provide  the  same  functionality  that  is 
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currently  provided  by  the  coresponding  C++  module  for 
the  Component  pool  in  the  ECS. 

I  did  not  try  to  change  any  logic  or  implementation  here 
to  test  the  new  approach. 

Notice  that  some  of  the  code  here  is  redundant  and  is  not 
needed  especialy  the  checks  to  see  if  the  Component 

already 

exists  in  the  DB  (or  the  parallel  check  to  see  if  the 
Component  does  not  exists  in  the  DB)  before  performing 

some 

operations.  The  lower  level  operations  defined  in  the 
Component  and  db_utility  packages  guards  aginst  the 
occurences  of  such  conditions  by  raising  the  proper 
exception. 


with  link_with_pragmas_PKG; 
use  link_with_pragmas_PKG; 

with  Component_PKG; 
use  Component_PKG; 

with  dbjutilityJPKG; 
use  db_u t i 1 i ty_P KG ; 

with  except ion_int erf ace__PKG; 
use  except ion_interface_PKG; 

with  c^strings; 
use  c__strings; 

with  a_strings; 
use  a_strings; 

with  u_env; 
use  u_env; 

with  text__io; 
use  text_io; 


package  Component_Ops_PKG  is 


package  int_io  is  new  integer_io (integer ) ; 
use  int__io; 


procedure  create__Component 


(name 

:  in 

a_string; 

psdl 

:  in 

a_string? 

ada_spec 

:  in 

a_string; 

ada_body 

:  in 

a_string; 

obj 

:  in 

a_strlng  ) ; 
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procedure  writ e__C omponent s__t o_f i  1  e ; 

:  in  a_string; 

:  in  a_string; 

:  in  a_string; 

:  in  a_jstring; 
s  in  a_string  ) ; 


procedure  add_C omponent  (name 

psdl 

ada_spec 

ada_Jbody 

obj 


procedure  delete_Component  (name  :  in  a_string) ; 
procedure  show_Component  (name  :  in  a_string)  ; 
procedure  show_all_Components ; 
end  C omponent _Ops_P KG; 


package  body  Component_Ops_PKG  is 


--  This  procedure  iterates  through  the  Component  instances  (using  the  new 
--  iterator)  and  write  Component  info  into  a  file  called: 

--  "/ .caps/temp/ddbdisplay"  to  be  used  later  by  TAE  to  display  this  info 
--  in  the  Component  panel.  Notice  the  use  of  the  new  ITERATOR  here. 


procedure  write_Components_to_f ile  is 

loc a 1_C omponent  :  Component; 

Component__iterator  :  Component; 

us er__di rectory:  a__string  :  = 

copy (c_st rings .to_a(u_env. getenv (c_st rings . to_c ("HOME" ) ) )  & 
a_strings. to_a ("/ .caps/temp/ddbdisplay") )  ; 

ECS_output  :  file_type; 

ECS__output_f  ile_name  :  a_strings  .a_string  :  =  user__di rectory ; 
begin 


transaction_start ; 

open(ECS__output ,  MODE  =>  OtIT_FXLE,  NAME  =>  ECS_output_file_name.s); 

Componentjterator  :=  Create_Instance_Iterator (to_a ("Component" ) )  ; 

while  (  Has_More__Elements (Component_iterator) )  loop 

local_Component  :=  Get_Next_Element (Component_iterator ) ; 

put ( ECS_output , GetComponentName ( local_Component ) . s ) ; 

NEWSLINE (ECS_output ) ; 
end  loop ; 

close (ECS_output) ; 
transact ion_commit ; 
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end  write_Components_to_f ile ; 


procedure  create_Component 


(name 

:  in 

a__string; 

psdl 

:  in 

a_string; 

ada_spec 

:  in 

a_string; 

ada_body 

:  in 

a_string; 

obj 

:  in 

a_string 

is 


local_Component  :  Component; 
begin 

local_Component  :=  new_Component (name,  psdl,  ada_spec/  ada_body,  ob j ) ; 
end  create_Component ; 


--  Add  Component  to  the  DB 

--  Note  that  when  adding  a  new  Component  to  the  DB  his  status  is  free  by- 
default 

--  that  is  the  reason  we  do  not  need  status  as  a  parameter. 


procedure  add_Component 


name 

:  in 

a_string; 

psdl 

:  in 

a_string; 

ada_spec 

:  in 

a_string; 

ada_body 

:  in 

a_string; 

obj 

:  in 

a_string  )  is 

local_Component  :  Component; 


begin 


transaction_start ; 

local_Component  :=  get_Component  (name )  ; 
if  local_Component  /=  null  then 

PUT__LINE  ("Component  already  exists  in  the  DB"); 
null; 
else 

local_Component : =  new_Component (name,  psdl,  ada_spec,  ada_body,  ob j ) ; 
save_to_db ( local_Component ) ; 
end  if  ; 

t  r ans  ac  t i on_c ommi t ; 


end  add__Component ; 


procedure  delete_Component  (name  :  in  a_string)  is 
local_Component  :  Component; 
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begin 


transactionjstart ; 

local__C  omponent  :  =  get_Component  (name )  ; 
if  local_Component  =  null  then 

PUT_LINE ("Component  does  not  exist  in  the  DB") ; 
null; 
else 

delete_f  rom_db  (local_Component )  ; 
end  if  ; 

t  r  ans  ac  t  i  on__c  ommi  t ; 
end  delete_C  omponent ; 


procedure  show_Component (name :  in  a_string)  is 
1  oc  a  1  __C omponent  :  Component; 
begin 

transaction_start ; 

local_C omponent  :=  get_Component (name ) ; 
if  local_Component  =  null  then 

PUT_LINE ("Component  does  not  exist  in  the  DB")  ; 
null ; 
else 

Put Component (local_Component ) ; 
end  if  ; 

t  r ans  ac  t i on_c ommi t ; 
end  show_Component ; 


procedure  show__all__Components  is 

local_Component  :  Component; 

Component_iterator  :  Component; 

begin 

transaction_start ; 

Component_iterator  Create_Instance_Iterator (to_a ("Component" ) )  ; 

while  (  Has__Mor  e_E  laments  ( Component__it  e  rat  or)  )  loop 
loc a 1_C omponent  : =  Get_Next_Element (Component_iterator) ; 
if  local__Component  =  null  then 

PUT_LINE  ("Component  does  not  exist  in  the  DB")  ; 
null; 
else 

PutComponent (local_Component ) ; 
end  if  ; 

end  loop; 

t  r ans  ac  t i on_c  ommi  t ; 
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end  show__al ^Components ; 


end  Component _Ops_P KG; 


--  Component 
Author 
--  Date 
--  Language 
--  Compiler 
--  Description 


--  Purpose 
of 


Db__Utility_PKG  Spec 
Huey -Wen  (Vincent)  Hong 
March  6,  1996 
Ada 

caps - suns7  SunAda 

The  Ada  mirror  program  for  Ada/C++  Bridge  Control 

The  Ada/C++  Bridge  Control  Technique  is  originally  created 

by  Osman  Ibrahim. 

This  package  spec  represents  an  Ada  mirrored  image  for  some 

Ontos  Free  functions  that  access  and  manipulate  objects  and 
other  DB  operations.  These  operations  needs  to  be  extended  in 
the  future  in  the  same  way  as  the  need  arises. 


with  a_st rings; 
use  a__strings; 

with  Component_PKG; 
use  Component_PKG; 

package  db_ut ility_PKG  is 

--  General  ONTOS  operations 

procedure  open_database (ddb  : 

procedure  c 1 os e_dat abase {ddb 

procedure  transact ion_st art ; 

procedure  transact ion_commit ; 

procedure  save_to_db(d  :  in 

procedure  delete_f rom_db (d  : 


in  a_string) ; 

:  In  a_string) ; 


Component ) ; 
in  Component)  ; 


end  db_utility_PKG; 


77 


--  Component  :  Db_Utility_PKG  Body 
--  Author  :  Ruey-Wen  (Vincent)  Hong 

--  Date  :  March  6,  1996 

- -  Language  :  Ada 

--  Compiler  :  caps-suns7  SunAda 

--  Description  :  The  Ada  mirror  program  for  Ada/C++  Bridge  Control 

The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

--  Purpose:  This  package  body  represents  an  Ada  mirrored  image  for  some  of 

Ontos  Free  functions  that  access  and  manipulate  objects  and 
other  DB  operations.  These  operations  needs  to  be  extended  in 

the  future  in  the  same 


way  as  the  need  arises. 

Procedure  names  are  given  followed  by  their  interface 
(C  in  all  cases)  and  interface  name. 


Refer  to  the  Component_PKG  body  for  some  other  detail  regarding 
the  Conventions  used  for  subprograms  names 


Refer  to  the  Component  PKG  Spec  for  some  other  detail  regarding 
the  way  I  used  to  interface  Ada  to  a  C++  code. 

Refer  to  the  file  except ion__int erf ace .h  for  the  meaning  of  each 
exceptiuons  used  here. 


with  a_st rings; 
use  a_st rings; 

with  c_st rings; 
use  c_st rings; 

with  except ion_interface_PKG; 
use  except ion_int erf ace_PKG; 


with  Component^  KG;  --  needed  for  type  "Component"  to  be  visible  here  which 
I  do 


functions 


--  not  think  it  is  right,  it  is  needed  because  some 


-  -  have  "  C  omp one nt " 


as  an  input  parameter. .refer  to  the 


note 


below. 

use  Component_PKG; 

package  body  db_utility_PKG  is 


procedure  ada_c_open_dat abase (ddb  :  in  c_string)  ; 
pragma  interface ( C , ada_c_open_database ) ; 

pragma  interf  ace__name  (ada_c_open__dat abase,  "_ada_c_open_dat.abase _ FPc")  ; 
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procedure  open_dat abase (ddb  :  in  a_string)  is 

begin 


ada_c_open_dat abase  (to__c  (ddb) )  ; 


case  get_exception_code  is 
when  norma l_code 
null; 

when  db_open_f  a  ile  d__code 

raise  db_open_f ailed ; 
when  others 

raise  Ontos_f ailure; 
end  case; 


=> 


=  > 


=  > 


end  open_dat abase; 


procedure  ada_c_c  1  os e_dat abase  (ddb  :  in  c_string) ; 

pragma  inter f  ace  (C,  ada_c_close__dat  abase)  ; 
pragma  interf ace_name (ada_c_close_database, 

"  ada  c  close  database  FPc") ; 


procedure  c 1 os e_dat abase (ddb  :  in  a_string)  is 
begin 

ada_c_c lose_dat abase (to_c (ddb) ) ; 

> 

> 

> 

end  close_dat abase; 


case  get_exception_code  is 
when  norma l_c ode 
null; 

when  db__not_open_code 

raise  db_not_open; 
when  others 

raise  Ontos_f ailure ; 

end  case; 


procedure  ada_c_t rans act ion_s tart ; 

pragma  interface (C, ada_c_trans act ion_s tart ) ; 
pragma  interface_name(ada_c_transaction_start, 

"_ada_c_transaction_start _ Fv" ) ; 
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procedure  transact ion_st art  is 

begin 

ada_c_transact ion_start ; 

case  get__exception__code  is 
when  norma  l_c  ode 
null; 

when  others 

raise  Ontos_f ailure; 

end  case; 

end  transact  ion__st  art; 


procedure  ada_c_transaction_commit ; 

pragma  interf  ace  (C,  ada_c_.tr ansae tion_commit )  ; 
pragma  interf ace_name ( ada_c_transaction_commit , 

"_ada_c_transact ion_commit _ Fv" )  ; 

procedure  transact  ion_commit  is 

begin 

ada_c_t  r  ans  ac  t  i  on„c  ommi  t ; 

case  get_except i on_c ode  is 
when  norma l_c ode  => 

null; 

when  no_active_transaction_code  => 
raise  no_active__transaction; 
when  others  => 

raise  Ontos_f ailure ; 
end  case; 

end  transact ion_coinmit; 


--  I  think  the  following  2  operations  should  be  moved  to  the  Component  ADT  and 

--  renamed  "save_Component _ to_db"  and  "delete_Component_f  rom_db"  respectively 

--  because  they  depend  on  the  type  of  object  passed  and  we  can  not  make  the 
--  input  type  generic  ...  can  we????? 


procedure  ada_c_save_to_db (d  :  in  Component); 
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pragma  interf  ace  (C,  ada_c_save_to__db)  ; 
pragma  Interf  ace_name  (ada__c_save_to_db, 
"__ada_c_s  ave_t  o_db _ FP  6  Comp onent "  ) ; 


procedure  save_to_db(d  :  in  Component)  is 

begin 

ada_c__s  ave_t  o_db  ( d )  ; 

case  get_except ion_code  is 

when  normal__code  => 

null; 

when  object_already_exists_code  => 
raise  object_already_exists; 

when  others  => 

raise  Ontos_f ailure ; 

end  case; 


end  save_to_db ; 


procedure  ada_c_delete_f rom_db (d  :  in  Component); 

pragma  interf ace (C, ada_c_delete_f rom_db) ; 
pragma  interf  ace_name  ( ada_c_delete__f  rom_db, 

"_ada_c_de le t e_f  rom_db _ FP  6 Component " )  ; 


procedure  delete_f rom_db (d  :  In  Component)  is 

begin 

ada_c_de  1  e t e_f  r om__db  ( d )  ; 

case  get_exception__code  is 

when  normal_code  => 

null; 

when  no_such__object_code  => 

raise  no_such_ob j ect ; 

when  others  => 

raise  Ontos_f ailure ; 

end  case; 


end  de 1 e t e_f  r om_db ; 
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end  db_utility_PKG; 


--  Component  :  except ion_PKG  Spec 

--  Author  :  Ruey-Wen  (Vincent)  Hong 

--  Date  :  March  6,  1996 

- -  Language  :  Ada 

—  Compiler  :  caps-suns7  SunAda 

--  Description  :  The  Ada  spec  mirror  program  for  Ada/C++  Bridge  Control 

The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

--  Purpose:  This  package  spec  represents  an  Ada  mirrored  image  for  the 

coresponding  C++  unit  "except  ion__int  erf  ace" .  It  is  made  in  a 
separate  PKG  because  most  of  these  exceptions  apply  to  all 
types.  In  the  future  it  will  be  easy  to  use  those  exceptions 
as  is  or  renamed  to  suit  a  specific  type. 

One  function  from  the  coresponding  C++  unit  "exception_ 
interface"  is  missing  intentionally  here  which  is  : 
"set_exception__code  ( ) "  because  it  is  not  needed  to  be  visible 
in  the  Ada  side. 

Refer  to  the  unit  "exception_interf ace .h"  for  the  meaning 
of  each  of  the  exceptions  defined  here. 


package  except ion_int erf ace_PKG  is 


EXCEPTIONS 

Onto s_f allure 

:  exception; 

db_open__f  ailed 

:  exception; 

db__not_open 

:  exception; 

no__act  ive_t  r  ansact  Ion 

:  exception; 

no_s  uch_object 

s  exception; 

ob  j  e  c t  _a 1 r  eady_exi s  t  s 

:  exception; 

--  Exception  codes  captured  and  returned  to  ada  from  ONTOS 
--  Refer  to  the  comment  in  the  PKG  body. 

type  exception_code  is  (normal_code. 
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ob j  ect_al ready _exi st  s_code , 
no_s  uc h_ob  j  e  c  t  _c  ode , 
db__°Pen_f  a  1 1  ed_c  ode , 
db_not_open_code , 
no_act ive_t ransact ion_code , 
Ontos_failure_code  )  ; 


Function  get_exception_code  return  except ion_c ode; 


end  except ion_int erf ace_P KG; 


--  Component 
--  Author 
--  Date 
--  Language 
--  Compiler 
Description 


--  Purpose: 


:  except ion_PKG  Body 
:  Ruey-Wen  (Vincent)  Hong 
:  March  6,  1996 
:  Ada 

:  caps -suns 7  SunAda 

:  The  Ada  spec  mirror  program  for  Ada/C++  Bridge  Control 
The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

This  package  body  represents  an  Ada  mirrored  image  for  the 
coresponding  C++  unit  " except ion_int erf ace" .  It  is  made  in  a 
separate  PKG  because  most  of  these  exceptions  apply  to  all 
types.  In  the  future  it  will  be  easy  to  use  those  exceptions 
as  is  or  renamed  to  suit  a  specific  type. 


One  function  from  the  coresponding  C++  unit  "except ion_ 
interface"  is  missing  intentionally  here  which  is  : 
"set_exception_code ( ) "  because  it  is  not  needed  to  be  visible 
in  the  Ada  side. 


Refer  to  the  unit  "except ion_int erf ace .h"  for  the  meaning 
of  each  of  the  exceptions  defined  here. 


with  text__io; 
use  text_io; 

package  body  except  ion_interface__PKG  is 


--  This  function  was  introduced  to  allow  ada  to  capture  an  exception  raised 
--  inside  ONTOS  so  that  Ada  can  handle  it  in  a  way  taht  will  not  cause 
--  the  program  to  abort  because  of  a  user  error;  e.g  a  misspelled  DB  name. 
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Function  ada_c_get_exception_code  return  integer; 

pragma  interface (C, ada_c_get_exception_code) ; 
pragma  interf ace_name ( ada_c_get_except ion_code , 

"_ada_c_get_except ion_code _ Fv" )  ; 


Function  get„_exception_code  return  except ion__c ode  is 


begin 

case  ada_c_get__except ion_code  is 


when  except ion_code 'POS (normal_code)  => 

return  normal__code; 

when  except ion_code  'POS  (no__such_obj ect_code)  => 

return  no_such_ob  ject_code; 

when  except ion_code ' POS (obj ect_already_exists_code)  => 
return  ob ject_already_exists_code ; 

when  except ion_code 'POS (db_open_f a iled_code)  => 

return  db__open_f ailed_code; 

when  except  ion_code '  POS  (db_not_open__code )  => 

return  ob ject_already_exists_code ; 

when  except ion_code 'POS ( no_ac t i ve_t rans ac t i on_c ode )  =  > 

return  no_act ive_t rans act ion_code ; 

when  others  => 

return  Ontos_f ailure_code; 


end  case; 

end  get_exception__code; 


end  except ion_interf ace_PKG; 


--  Component 
--  Author 
--  Date 
--  Language 
--  Compiler 
--  Description 


link  with  pragmas  PKG  Spec 
Ruey-Wen  (Vincent)  Hong 
March  6,  1996 
Ada 

caps-suns7  SunAda 

The  Ada  spec  mirror  program  for  Ada/C++  Bridge  Control 
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Purpose : 


The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

This  package  the  pragma  link__with  for  the  a.  Id  pre-link  to  the 
the  relevant  C++  components  given  by  thier  object  files. 

It  also  contains  pragma  link_with  for  the  a. Id  pre-link  to  the 
procedure  cplusplus__init  which  is  required  at  TAE  level  to  make 
TAE,  Ada,  C++,  and  ONTOS  behave  friendlt  together  !!!!!! 


For  linking  with  a  C++  (generally  foreign  lang.)  object  file, 
there  are  3  ways  to  do  that  : 

-  use  withn  (not  recommended  by  Ada 

documentations ) 


-  supply  the  C++  (.o)  files  in  the  command 
line  as  opetions  to  a. Id  ,  this  is  doable  and 

can  be  included  in  the  Makefile 

-  The  way  I'm  using  is  to  use  link_with  pragma  to 

link  to  the  desired  (.o)  file 

Refer  to  the  files  deslgner_s.a  and  designer_b.a  for  other 
relevant  details  of  how  interfacing  Ada  to  C++ 


package  link_with_pragmas_PKG  is 

--  CAPS  C++  operation  to  initialize  static  constructors 

procedure  cplusplus_init ; 

pragma  interface (C, cplusplus^init) ; 

pragma  interf ace_name (cplusplus_init,  "_jmain"); 


--  Main  C++  interface  object  module,  required  for  initialization  of  C++ 
--  static  constructors. 

pragma  link_with ("C++_initialize .o") ; 

pragma  1 ink_with ( "component . o" ) ; 

pragma  link_with ("component_interf ace . o" ) ; 

pragma  link_with ("db_utility . o" ) ; 

pragma  link_with ("except ion_interf ace . o" ) ; 


end  link_jwith_pragmas_PKG; 


B.  C++  Source  Code 
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/* - - - 

:  Class  Component  (.h) 

:  component .h 

:  Documented  Feb  29,  1996. 

:  Ruey-Wen  (Vincent)  Hong 
:  Sun  C++  and  ONTOS  (2.1) 

:  The  Ada/C++  Bridge  Control  Technique  is  originally  created 
:  by  Osman  Ibrahim. 

:  The  header  for  the  Component  Class  that  implement 
:  the  Software  Component  ADT  in  C++ 


*/ 


#include  <Object.h> 

class  Component  s  public  Object 

{ 

private : 

char*  priv_psdl;  //  The  component's  psdl  spec 

char*  priv_ada_spec;  //  The  component's  ada  spec 

char*  priv_ada_body ;  //  The  component's  ada  body 

char*  priv_ob j ;  //  The  component's  OBJ  code 

public ; 

//  Constructors 

Component ( char*  name= ( char* ) 0 , 
char*  psdl= (char* ) 0 , 
char*  ada_s  oec= ( char* ) 0 , 
char*  ada_body= ( char* ) 0 , 
char*  obj=(char*)0  ); 

Component  (APL*);  //  (Ontos  required  Constructor) 

//  Ontos  required  member  function) 

Type  *getDirectType ( ) ; 

//  Accessors 

char*  GetComponentPsdl ( )  ; 

void  SetComponentPsdl (char*  psdl); 

> ; 


/* - - - —  — - 

--  Unit  :  class  Component  implementation  (.cxx) 

--File  :  Component c . cxx 

--  Date  :  Documented  Feb  29,  1996. 

--  Author  :  Ruey-Wen  (Vincent)  Hong 


--  Unit 
--  File 
--  Date 
--  Author 
--  Systems 
--  Description 
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--  Systems  :  Sun  C++  and  ONTOS  (2.1) 

--  Description  :  The  Ada/C++  Bridge  Control  Technique  is  originally  created 

:  by  Osman  Ibrahim. 

:  Provides  the  implementation  (definition)  for  the  Component 
Class  that  implements  the  Component  ADT  in  C++ 


*/ 

ftinclude  "component .h" 

#include  <Directory .h> 

// - 

//  constructors 

// - 

I* - 

*/ 

Component :: Component (APL  *theAPL)  :  Object (theAPL) 

{ 

} 

/*  - 

*/ 

Component : : Component ( char*  name , 

char*  psdl, 

char*  ada_spec, 

char*  ada_body, 

char*  obj  ):  Object (name) 


InitDirectType ( (Type  *) OC_lookup ( "Component " ) ) ; 

priv_psdl  =  psdl ; 

priv_ada_spec  =  ada_spec; 
priv_ada_body  =  ada_body; 
priv_ob j  =  obj  ; 


// - 

//  accessors 

// - - - 

Type  *Component : : getDirectType ( ) 

{ 

return  (Type* ) OC_lookup ("Component" ) ; 

} 


/*  - - - - 

*/ 

void  Component :: SetComponentPsdl (char*  psdl) 

{ 

priv_psdl  -  psdl; 

} 

/* - - - 
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*/ 


char*  Component : : GetComponentPsdl ( ) 

{ 

return  priv_psdl; 

} 

/*  - - - - 

*/ 


/*  - 

--  Unit 
--  File 
--  Date 
--  Author 
--  Systems 
--  Description 


that 


Component__Interf ace  (  .h) 
component_interf ace .h 
Documented  Feb  29,  1996. 

Ruey-Wen  (Vincent )  Hong 
Sun  C++  and  ONTOS  (2.1) 

The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

The  sole  reason  for  this  unit  is  to  allow  ADA  to  Create, 
Access,  and  manipulate  objects  (instances)  of  the 
"Component  Class".  We  tried  to  do  that  directly  without 

second  level  interface,  but  we  did  not  succeed. 

Comments  about  how  ada  can  communicate  with  code  written 
in  C++  can  be  found  in  some  of  the  Ada  files  in  this  Dir. 


*/ 


# include  <Database.h> 
#include  <Directory ,h> 
#include  "component .h" 
#include  <Type.h> 


//  The  following  operation  is  just  for  making  ada  able  to  call  the 
constructors 

//  of  the  Component  Class. 


Component* 


ada_c_new_c  omponent ( 


char*  Myname, 
char*  MyPsdl, 
char*  MyAdaSpec, 
char*  MyAdaBody, 
char*  My Ob j  ) ; 


//  The  following  operation  is  to  allow  Ada  to  lookup  and  retrieve  an  instance 
//  of  the  Component  Class 


Component  *  ada__c_f  ind_component  ( char* )  ; 

//  The  following  Operations  each  coresponds  to  a  member  function  of  the 

Component 

//  Class. 


char*  ada_c_Get Component Name (Component*  ada_ptr) ; 

void  ada_c_SetComponentName (char*  name.  Component*  ada_ptr) ; 
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// 


component  ITERATOR 


//  The  following  operations  lumps  an  Iterator  suitable  for  looping  through 
//  instances  of  the  Component  class  and  returning  each  of  these  Instances 
//  The  following  syntax  of  the  Instance  Iterator,  although  is  given  for 
//  the  Component  Type,  it  is  general  enough  to  apply  to  any  other  TYPE  under 
//  conditition  the  Type  MUST  be  classified  into  the  DB  (using  Ontos  CLASSIFY 
//  utility)  with  the  +X  switch  so  that  Ontos  will  maintain  an  aggregate  of  all 
//  instance  of  that  TYPE,  in  this  case  the  Type  is  called  "has  an  EXTENSION" 

//  .  .  refer  to  ONTOS  DB  Tools  and  Utilities  Guide  Ch3 . 

//  WATCH  OUT  though  that  using  +X  swith  has  a  perfomance  degredation  penality, 
//  it  slows  down  the  application. 


Instancelterator* 

Component* 

void 

void 

OC_Boolean 


ada_c_Create_Instance_Iterator (char*  type_name) ; 

ada_c_Get_Next_Element (Instancelterator*  it)  ; 
ada_c_Reset_Iterator (Instancelterator*  it,  char* 
ada_c_Destroy_Iterator ( Instancelterator*  It) ; 
ada_c_Has_More_Elements (Instancelterator*  it) ; 


type_name)  ; 


/* 


--  Unit 
--  File 
- -  Date 
--  Author 
--  Systems 
--  Description 


that 


The  implementation  for  Component__interf ace  (.cxx) 
Component_Interf ace . cxx 
Documented  Feb  29,  1996. 

Ruey-Wen  (Vincent )  Hong 
Sun  C++  and  ONTOS  (2.1) 

The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

The  sole  reason  for  this  unit  is  to  allow  ADA  to  Create, 
Access,  and  manipulate  objects  (instances)  of  the 
"Component  Class".  We  tried  to  do  that  directly  without 

second  level  interface,  but  we  did  not  succeed. 

Comments  about  how  ada  can  communicate  with  code  written 
C++  can  be  found  in  some  of  the  Ada  files  in  this  Dir. 


*/ 

# include  "component_interf ace .h" 
#include  <Exception.h> 

#include  "except ion_int erf ace .h" 


//  Note  :  We  tried  to  place  all  EXCEPTION  objects  in  one  header  file 
(exception 

//  _interf ace .h)  and  be  used  whereever  needed,  but  this  resulted  in  an  error 
//  came  from  the  loader  saying  they  are  multiply  defined,  the  same  error  came 
//  out  when  even  we  placed  them  global  in  the  same  file,  so  we  had  to  put  each 
//  in  the  proper  function  where  the  Exception  is  expected. 

7/  =  =  =:  =  =  =  ===  =  =  =:=:^===  =  =:  =  ==  =  =  =:  =  =  =  =  =  ==:  =  =  =:  =  =  =====:==  =  =  =  =  =  =  ==  =  =  ==  =  =  ==  =  =  =  =  =  =  =  =  =  =  =  = 
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//  The  following  operation  is  just  for  making  ada  able  to  call  the 
constructors 


Component*  ada_c_new_Component (  char*  Myname, 

char*  MyPsdl, 
char*  MyAdaSpec, 
char*  MyAdaBody, 
char*  MyObj  ) 

{ 


Except ionHandler  object_already__exists ("Name InUse" ) ; 

if  (ob j  ect_already_exists . Occurs ( ) ) 

ada__c_set_exception__code  (object_already_exists_code)  ; 


else 


{ 

ada_c_set„exception_code (  normal_code) ; 

Component*  aComponent  =  new  Component (Myname, 
MyPsdl, 

MyAdaSpec, 

MyAdaBody, 


MyObj ) ; 


} 


return  aComponent ; 

} 


// 


Component  *  ada_c_f ind_Component ( char*  Component_name ) 


Except ionHandler  no_such_object  ("NameNotFound" ) ; 

if  (no_such_ob j  ect . Occurs ( ) ) 

ada_c_set__exception_code  (no_such_ob  j  ect_code)  ; 

else 

{ 

ada_c_set_exception_code (  normal_code) ; 

Component  * aComponent  = 

( Component* )  OC_lookup  ( Component_name )  ; 

return  aComponent ; 

} 


//================================:=:====:========;===== 

char*  ada_c_Ge  t  ComponeatName  ( Component  *  ada_jptr) 

{ 

Except  ionHandler  no_such__object  ("NameNotFound")  ; 
if  (no_such_ob j  ect . Occurs ( ) ) 
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else 

{ 


ada_c__set_exception_code  (no_such_object_code)  ; 


ada_c_set_exception_code  (  normal_code)  ; 

return  ada_ptr->Name  ( )  ; 

} 

} 

//  =  =  ===  =  =  =  ===:==  =  ==  =  ==  =  =  ===:  =  =  =  =  =  =  =  =  =  ====:  =  =  =  =  =  =  =  =:==  =  =  =  =  =  =  =  =  ==  =  =  =  ==  =  =  =  =  =  =  =  =  ==  = 
void  ada_c__SetComponentNaiiie  (char*  name.  Component*  ada_ptr) 

{ 

Except ionHandler  no_such_obj ect  ("NameNotFound") ; 

if  (no_such__obj  ect . Occurs ( ) ) 

ada_c_set_exception_code  (no_such_ob  ject_code) ; 

else 

{ 

ada_c_set_exception_code  (  normal_code)  ; 

ada_pt  r-  >Name  ( name )  ; 

} 

} 

//  =  =  =  =  =  =  =  =  ==  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  -  =  =  =  =  =  =  =  =  =:-  =  =  =  =  =:  =  =  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =  -==-=  =  =  =  = 

// - Component  ITERATOR - - - 

Instancelterator*  ada_c_Create_Instance_Iterator  (char*  type_name) 

{ 

Instancelterator*  it  =  new  Instancelterator ( (Type* )  OC_lookup ( type_name ) ) 
return  it; 

} 

Component*  ada_c_Get_Next_Element  (Instancelterator*  it) 

{ 

Component*  next_Component  =  (Component* )  (Entity* ) it- >operator ( ) ( ) ; 
return  next_Component ; 

} 

void  ada_c_Reset_Iterat or (Instancelterator*  it,  char*  type_name) 

{ 

it->Reset( (Type*)  OC_lookup  (type_name) ) ; 

} 

void  ada_c_Destroy_Iterator (Instancelterator*  it) 

{ 

it->Destroy ( ) ; 

> 

OC_Boolean  ada_c_JHas_More_Elements  ( Instancelterator*  it) 

{ 


91 


return  it->moreData ( ) ; 


} 

If 


--  Unit 
--  File 
--  Date 
--  Author 
--  Systems 
--  Description 


:  Header  for  db__utility  ( .h) 

:  disutility. h 
:  Documented  Feb  29,  1996 „ 

:  Ruey-Wen  (Vincent)  Hong 
:  Sun  C++  and  ONTOS  (2.1) 

:  The  Ada/C++  Bridge  Control  Technique  is  originally  created 
:  by  Osman  Ibrahim. 

:  Provide  Function  prototypes  of  some  relevant  Ontos  DB 

operation  so  that  they  are  visible  to  and  callable  from 
Ada.  These  operations  needs  to  be  extended  in  the  future 
in  the  same  way  as  the  need  arises. 


*/ 

#include  <Database.h> 

#include  "component . h" 

# include  "except ion_int erf ace .h" 

int  ada_c_open_dat abase (char*  dbname) ; 

void  ada„c_c 1 os e_dat abase (char*  dbname); 

void  ada_c__transactionjstart ( ) ; 

void  ada__c_transaction_comiuit  ( )  ; 

void  ad a_ c_  s a ve _t  o_db ( Component  * ) ; 

void  ada__c_delete_f  rom_db  (Component* )  ; 

/*  —  —  — - - - - - - 


--  Unit 
--  File 
--  Date 
--  Author 
--  Systems 
--  Description 


The  implementation  for  db_utility  (.cxx) 
db_ut i 1 i ty . cxx 
Documented  Oct  5,1995. 

Osman  Ibrahim 

Sun  C++  and  ONTOS  (2.1) 

Provide  the  Implementation  for  some  relevant  Ontos  DB 
operation  so  that  they  are  visible  to  and  callable  from 
Ada.  These  operations  needs  to  be  extended  in  the  future 
in  the  same  way  as  the  need  arises . 


*/ 


# include 
# include 
# include 
# include 


"component_interf ace .h" 
<Directory .h> 
<Exception.h> 
"exception__interface  .h" 
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//  Note  :  We  tried  to  place  all  EXCEPTION  objects  in  one  header  file 
(exception 

//  _interf ace .h)  and  be  used  whereever  needed,  but  this  resulted  in  an  error 
//  came  from  the  loader  saying  they  are  multiply  defined,  the  same  eror  came 
//  out  when  even  we  placed  them  global  in  the  same  file,  so  we  had  to  put  each 
//  in  the  proper  function  where  the  Exception  is  expected. 

// 


//An  interface  to  ontos  DB  operation  OC_open(dbname) 

void  ada_c__open_dat abase  (char*  dbname) 

{ 

Except ionHandler  db_open_f ailed  ("DatabaseOpenFailed" ) ; 

if  (db_open_f ailed. Occurs () ) 

ada_c_set_exception_code (db_open_f ailed_code) ; 

else 

{ 

ada_c_set_except  ion_code  (  normal__code )  ; 

if  ( ! (OC_dbIsOpen ( ) ) )  OC_open (dbname) ; 

} 


} 

// 


//An  interface  to  ontos  DB  operation  OC_close (dbname ) 

void  ada_c__c  1  os  e_dat  abase  (char*  dbname) 

{ 

Except ionHandler  db_not„open  ( "Dat abas eNot Open" ) ; 

if  (db_not_open. Occurs () ) 

ada_c_set_exception_code (db_not_open_code) ; 

else 


{ 

} 

} 

// 


ada_c_3 e t _exc ep t i on_c ode  (  normal_code ) ; 
OC_close  (dbname)  ; 


//  An  interface  to  ontos  DB  operation  OC_transactionStart ( ) 
void  ada_c_transaction_start ( ) 

//  According  to  Ontos;  No  Exceptions  are  associated  with  this  operation 
//  Howerver  the  one  added  below  wil  catch  any  exception  raised  inside  ONTOS 

{ 

Except ionHandler  ontos_falure  ("Failure"); 
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If  ( ontos_f  alure .  Occurs  ( )  ) 

ada_c_set_except Ion_code  (ontos_f ailure_code)  ; 

else 

{ 

ada_c_jset_exception_code  (  normal_code )  ; 

OC_transactionStart ( ) ; 

} 


//  An  interface  to  ontos  DB  operation  OC_transactionCommit ( ) 

void  ada_c_transaction_commit ( ) 

{ 

Except ionHandler  no_active_transaction  ("NoTransaction" ) ; 

if  (no_act ive_transaction . Occurs ( ) ) 

ada_c_set_exception_code  (no_active_ transactions  ode)  ; 

else 

{ 

ada_c__set_exception_code  (  normal_code) ; 
OC_transactionCommit ( ) ; 

} 

} 

// 


//  I  Think  the  following  2  operations  should  be  moved  to  "Component__intef ace" 
//  because  both  are  specific  to  designer  objects  and  we  can  not  make  them 
//  general  to  accept  any  object  type 

// 


//  An  Interface  to  ontos  DB  operation  putObjectO  ..  specific  to  an  object 
void  ada_c_s ave_t  o__db  ( Component  *  ada_pt  r ) 


Except ionHandler  ob j ect_already_exists ("Name InUse" ) ; 
if  (object_already_exists .Occurs ( ) ) 

ada_c_set_exception_code  (object_already_exists_code)  ; 

else 

{ 

ada_c_set_exception_code (  normal_code) ; 
ada_ptr->put Object ( ) ; 

} 

} 

// 
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//  An  interface  to  ontos  DB  operation  deleteOb j ect ( )  . .  specific  to  an  object 


void  ada_c_delete_from_db  (Component*  ada_ptr) 


ExceptionHandler  no_such_obj ect  ("NameNotPound" ) ; 

if  (no_such_obj  ect . Occurs ( ) ) 

ada_c_set_exception_code (no_such__object_code) ; 

else 

{ 

ada_c_set_exception_code (  normal_code) ; 
ada_ptr- >deleteOb j  ect ( ) ; 

} 

} 

// 


/* 


--  Unit 
--  File 
--  Date 
--  Author 
--  Systems 
--  Description 


:  The  header  for  except ion_int erf ace  (.h) 
except ion_interf ace. h 

Documented  Feb  29,  1996. 

Ruey-Wen  (Vincent)  Hong 
Sun  C++  and  ONTOS  (2.1) 

The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

Provides  an  interface  to  a  set  of  exception  codes  defined 
below  and  the  protypes  for  2  functions  that  sets  and  gets 
the  values  of  an  exception  code  set  by  differnt  functions 


from  db_utility  and  Component_interf ace  units  indicating 
that  some  exception  has  occured  or  not,  the  meaning  of 
the  exception  codes  are  : 


normal_code:  no  exception  has  occurred 

object_already_exists_code :  An  attempt  was  made  to  store 

object  into  the  DB  but  another  object  is 
already  exists  in  DB  having  the  same  name 
no_such_object_code:  No  such  object  in  the  DB 
havining  that  name 

db_open„failed_code :  An  attempt  was  made  to  open 

a  DB  that  does  not  exist  or  using  a  wrong 
name  (eg  misspelled) 

db__not_open_code :  An  attempt  was  made  to  close 
a  DB  that  was  not  previously  opened 
no_active_transaction_code :  An  attempt  was  made  to 

commit  a  transaction  that  was  not  started  yet 


*/ 


# include  <Exception.h> 


#define  normal_code  0 

#define  ob  ject_already_exists__code  1 

#define  no_such__ob  ject_code  2 

#define  db_openjfailed_code  3 

#define  db_not_open_code  4 
#define  no_active_transaction_code  5 
#define  ontos_failure_code  6 


//  Note: 
II 

I  / 

II 
II 
II 


The  following  exception  objects  have  been  moved  from  here  to  the 
proper  local  places;  specifically  each  to  a  Function (s)  inside 
Component_interf ace . cxx  and  db_utility . cxx.  The  reason  for  this 
obligatory  movement  is  because  the  loader  complains  of  being  defined 
here  and  used  there  and  gives  me  "  objects  so  and  so  are  multuply 
defined".  I'm  not  sure  what  is  wrong  because  inspite  of  the  error 


rasg . , 

//  the  program  links  and  run  normally.  OSMAN  Oct  5,  1995 


If  Except ionHandler 
II  Except ionHandler 
II  Except ionHandler 
II  Except ionHandler 
II  Except ionHandler 
II  Except ionHandler 


db__°pen_f ailed  ( "DatabaseOpenFailed" )  ; 
db_open_f ailed ( "DatabaseOpenFailed" ) ; 
db_not_open  ( "DatabaseNotOpen" ) ; 
no_act ive_t r ansae t ion  ("NoTransaction" ) ; 
object_already_exists  ("NamelnUse" ) ; 
no_such_ob ject  ( "NameNot Found" ) ; 


II  The  following  function  was  introduced  to  allow  ada  to  capture  an  exception 
II  raised  inside  ONTOS  so  that  Ada  can  handle  it  in  a  way  taht  will  not  cause 
II  the  program  to  abort  because  of  a  user  error;  e.g  a  misspelled  DB  name. 

int  ada  c  get  exception  code ( ) ; 

II  The  following  function  is  used  by  different  operations  from  inside 
//  db_utility  and  Component _int erf ace  to  set  exception  code  into  one  of  the 
II  above  codes  acording  to  the  situation. 

void  ada__c_set_exception_code  (int) ; 

/*  ----- - - - - - — 


--  Unit 
--  File 
--  Date 
--  Author 
--  Systems 
--  Description 


get 


The  implementation  for  except ion_interf ace  (.cxx) 
except ion_int erf ace .cxx 
Documented  Feb  29,  1996. 

Ruey-Wen  (Vincent )  Hong 
Sun  C++  and  ONTOS  (2.1) 

The  Ada/C++  Bridge  Control  Technique  is  originally  created 
by  Osman  Ibrahim. 

Provides  the  imlementation  for  the  2  functions  set  and 
except ion_code  that  sets  and  gets  the  values  of  an 


exception  code  set 
exception 


by  differnt  functions  from  db_utility 

and  Component_interf ace  units  indicating  that  some 

has  occured  or  not,  the  meaning  of  the  exception  codes 
are  : 


normal_code:  no  exception  has  occurred 

object_already_exists_code :  An  attempt  was  made  to  store 

object  into  the  DB  but  another  object  is 


96 


already  exists  having  the  same  name 
no_such_object_code :  No  such  object  in  the  DB 
havining  that  name 

db_open_failed_code:  An  attempt  was  made  to  open 

a  DB  that  does  not  exist  or  using  a  wrong 
name  (eg  misspelled) 

db_not_open_code :  An  attempt  was  made  to  close 
a  DB  that  was  not  previously  opened 
no_active_transaction_code :  An  attempt  was  made  to 

commit  a  transaction  that  was  not  started  yet 


*/ 


tinclude  "except ion_interf ace .h" 
int  global_exception_code  =  0  ; 
int  ada  c  get  exception  code ( ) 

//  The  following  function  was  introduced  to  allow  ada  to  capture  an  exception 
//  raised  inside  ONTOS  so  that  Ada  can  handle  it  in  a  way  taht  will  not  cause 
//  the  program  to  abort  because  of  a  user  error;  e.g  a  misspelled  DB  name. 

{ 

return  global_exception_code; 

} 

//  The  following  function  is  used  by  different  operations  from  inside 
//  db_utility  and  Component_interf ace  to  set  exception  code  into  one  of  the 
//  above  code  acording  to  the  situation. 

void  ada_c_set_exception__code  (int  except ion_code) 

{ 

global_except ion_code  =  exception_code  ; 

} 
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APPENDIX  C  -  ONTOS  USERS  MANUAL 


A.  QUICK  REFERENCE 

This  manual  contains  the  commands  that  you  will  need  to  use  to  create  and  register  an 
ONTOS  database  in  your  own  directory  for  use  as  a  CAPS  design  database. 

1)  copy  the  ONTOS  schema  to  the  ultimate  physical  location  of  your  DDB: 

>cp  /usr/ local /ONTOS2 /ONTOS /ONTOSDB/db/OntosSchema  <MyPath>/<MySchema> 

2)  Change  the  file  permissions: 

>chmod  666  <MyPath>/<MyScbema> 

3)  Invoke  DBATool  (in  /usr/local/ONTOS2/bin/DBATool) 

>DBATool 

you  will  get  the  prompt enter  the  following  command  to  register  a  kernel  for  your 

DB 

>>  register  kernel  <MyKernel>  on  <Ontos_Server>  at  <MyPath>/<MySchema> 

where  MyKernel  and  MySchema  are  the  names  of  your  kernel  and  physical  DB  schema 
respectively.  MyPath  is  simply  the  path  to  your  schema  (the  physical  location  of  your  DDB). 
The  next  3  commands  link  the  kernel  with  the  schema: 

>>  register  database  <MySchema>  with  kernel  <MyKernel> 

>>  sync 
>>  quit 

The  next  command  creates  a  Makefile: 

cp  $CAPSHOME/doc/DDB_make  <MyPath> /Makefile 

Finally,  run  the  following  Makefile  command: 

>make  freshdb 

NOTE:  In  some  instances,  we  have  observed  the  DB  refreshing  process  deadlock.  If  you  do  not 
see  any  progress  for  more  than  a  minute,  kill  the  process  using  Control-C  and  issue  the  above 
command  again. 

After  a  DDB  has  been  created,  it  can  be  erased  and  reclassified  using  "make  freshdb". 
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B„  MAKEFILE 


#  Logical  database  name 

# 

#  MODIFY  THE  NEXT  LINE  TO  THE  NAME  OF  YOUR  DB 
LOGDBNAME = v inc ent _db 

# 

#  MODIFY  Where  your  physical  database  schema  file  lives 
DBFILE=/n/suns5 /work/ Vincent /swbase/MySchema 

############################################################## 

#  # 

#  DO  NOT  MODIFY  ANYTHING  BELOW  THIS  POINT  # 

#  # 
############################################################## 
# 

#  Locations  of  libraries  and  include  files 

# 

ONTOS INCDIR=  /usr /local /ONTOS2 / include /ONTOS 
ONTOSLIBDIR=  /usr /local/ONTOS2 /bin 
# 

# 

#  Source  files 

CAPS_SWB_SRCS  =  component . cxx  db_interf ace . cxx  db_utility • cxx 
except ion_interf ace . cxx 

# 

#  Files  to  classify 

# 

CLASS IFILESl  =  component ,h 

# 

#  +X  means  classify  with  extensions 
EXTENSION  =  +X 

#  +v  means  print  what  is  being  classified 
VERBOSE  =  +v 

# 

#  Where  OntosSchema  lives 

ONTOSSCHEMA  =  /usr/ local /ONTOS2 /ONTOS /ONTOSDB/db /OntosSchema 

LIBS=“L$ (ONTOSLIBDIR)  -lONTOS 
INCLUDES =-I$ ( ONTOS INCDIR) 

CAPS_SWB_OB JS  =  $ (CAPS_SWB_SRCS  s . cxx= . o) 


template  s 

a. make  -v  -f  * .a 

a -Id  -o  template.exe  test_swb  -d  -L/usr/local/CC2 - 1/SCI . 0  lONTOS 
1  /usr/ local /CC2 - 1/SCI -  0 /patch  template.exe 
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.SUFFIXES: 


.  cxx 


.  cxx.o : 

CC  -c  -go  $( INCLUDES)  *.cxx 


classifyl : 

classify  +D$ (LOGDBNAME)  $ (EXTENSION)  $ (VERBOSE)  \ 
$ (INCLUDES)  $ ( CLASS IFILES 1 ) 


f reshdb : 

rm  $ (DBFILE) * 

cp  $ (ONTOSSCHEMA)  $ (DBFILE) 
chmod  777  $ (DBFILE) 
make  classifyl 


caps : 

cplus  -c  -g  -Bstatic  $ (CAPS_SWB_SRCS)  $ (INCLUDES)  $(LIBS) 

component : 

cplus  -c  -g  -Bstatic  component. h  $ (INCLUDES)  $(LIBS) 

CC  -c  -go  $( INCLUDES)  component . cxx 
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APPENDIX  D  -  SOFTWARE  BASE  USERS  MANUAL 


To  use  the  CAPS  software  base,  the  user  has  to  start  CAPS  by  typing  “caps”  at  the  prompt. 
If  your  CAPS  environment  has  been  set  up  correctly,  you  will  get  the  CAPS  main  menu  shown  in 
Figure  14.  If  the  CAPS  main  menu  does  not  come  up  correctly,  you  should  inform  your  CAPS 
manager  to  check  on  your  CAPS  environment  configuration. 


i  ~A|&n  - 

\JUm  Computer-Aided  Prototyping  System 

Mill _ | 

Figure  14.  CAPS  Start  Up  Window 

To  invoke  the  CAPS  Software  Base,  click  on  the  Database  selection  square  with  the  left 
mouse  button.  Two  submenus  will  be  displayed:  Design  Database  and  Software  Base.  Here  we 
want  to  explore  the  Software  Base,  so  left  click  the  mouse  on  the  Software  Base  selection. 

Figure  15  will  come  up  within  a  few  seconds.  From  this  point  on,  you  will  interact  directly 
with  the  Software  Base  utility. 


CAPS  SOFTWARE!  BASE  95 


Figure  15.  CAPS  Software  Base  Main  Menu 


As  we  mentioned  earlier,  the  SBGUI  can  be  separated  into  two  parts(User  part  and  DBM  A 
part),  with  the  submenu  structures  shown  in  Figure  16. 
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Figure  16.  Structure  of  the  User  and  DBMA  Options 


Access  to  the  Query  option  is  available  to  all  users.  Whether  a  user  can  select  the  Mainte¬ 
nance  option  depends  on  the  CAPS  user  mode.  The  Software  Base  will  check  the  user’s  privilege 
to  see  whether  s/he  is  a  CAPS  manager.  When  the  user  is  a  CAPS  manager,  s/he  has  access  to  the 
Maintenance  option,  otherwise  the  user  can  only  execute  the  query  option.  An  unauthorized  click 
on  the  maintenance  button  will  be  rejected.  As  a  user  manual,  this  document  concentrates  on  the 
operational  assistance  within  the  Software  Base. 

A.  THE  QUERY  OPTION 

Let  us  start  from  the  query  option.  When  the  user  left  click  the  Query  button,  the  query 
window  shown  in  Figure  17  is  displayed. 


STOQOERW  SYSTEM 


M&ttuaX  i  impoxi .  *  :/i;  C&swtel 


mi! 


Figure  17.  CAPS  Software  Base  Query  Menu 
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Query  functionality  can  be  separated  into  Manual  and  Import.  Manual  means  that  the  user 
has  to  input  the  query  specification  manually.  Import  identifies  the  capability  of  searching  the 
software  library  based  on  the  specification  automatically  generated  from  the  SDE. 

When  the  user  left  click  the  Manual  button,  it  will  trigger  the  window  shown  in  Figure 
18(a).  The  user  should  select  the  keywords  s/he  needs  from  the  “Keyword”  window  and  the  sys¬ 
tem  will  display  them  on  the  right  hand  side,  “Selected  Keyword”  window  automatically.  After 
the  selection,  Figure  18(b)  will  be  displayed. 


(b) 

Figure  18.  Keyword  Selection  Window 


When  the  user  finishes  with  Keyword  selection,  s/he  left  clicks  the  OK  button.  The  system 
will  keep  these  selected  keywords  in  a  predefined  Query_Keywords_String  and  then  trigger  the 
window  in  Figure  19(a)  below.  It  allows  the  user  to  input  the  number  of  query  operators  and  the 
number  of  test  cases  which  axe  the  two  critical  requirements  to  the  multi-level  filtering  retrieval 
technique(MLFRT). 
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(b) 

Figure  19.  Get  the  Number  of  Operators  and  Test  Cases 

After  entering  the  number  of  operators  and  test  cases(shown  in  Figure  19(b)  displayed), 
the  system  will  display  the  window  in  Figure  20. 


M 


(a) 


(b) 


Figure  20.  Get  Detail  Information  for  Each  Operator 


In  order  that  the  desired  component  be  matched  as  closely  as  possible,  all  of  its  internal 
operators  must  be  fully  specified.  Full  specification  is  tied  to  these  internal  operator’s  names  and 
profile  patterns. 

The  name  is  simply  a  description  of  what  the  user  believes  the  internal  operator  does.  It  is 
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used  in  part  of  the  later  matching  process. 

The  profile  description  is  a  little  more  complicated  and  is  broken  into  two  stages,  giving 
rise  to  the  name  multi-level  filtering.  The  first  step  is  to  define  the  inputs  and  outputs  in  a  general 
level.  This  is  the  operator’s  profile.  For  example,  if  looking  for  a  component  such  as  a  stack,  user 
need  to  specify  an  Empty  operator,  a  Top  operator,  a  Push  operator,  etc. 

Figure  20  shows  how  these  internal  operators  are  specified.  This  must  be  done  for  each 
internal  operator  of  the  desired  component.  Figure  20  will  be  repeatedly  popped  up  for  the  num¬ 
ber  of  the  operators  which  user  input  in  Figure  19.  Figure  20(a)  and  Figure  20(b)  are  two  exam¬ 
ples  showing  input  for  the  operator  Empty  and  Top  when  the  user  searches  for  a  Stack-like 
software  component.  In  the  MLFRT  process,  the  user  needs  to  supply  the  query  information  for 
operator  name ,  profile  and  the  signature  name. 

Notice  the  profile  selected  in  Figure  20(b).  It  shows  that  there  is  one  input  and  one  out- 
put(A  ->  B).  If  for  example,  there  were  two  inputs  and  one  output  of  different  types,  user  should 
pick  “A  B  ->  C”. 

Once  this  profile  pattern  is  specified,  user  must  get  the  signature  names,  which  are  fine 
grained  specifications  for  the  unique  input  and  output  signatures.  Continuing  with  the  Top  internal 
operator,  Figure  21  shows  how  this  information  is  gathered.  Once  the  user  clicks  on  a  signature,  it 
is  displayed  in  the  box  as  shown  in  Figure  21(b). 


(b) 

Figure  21.  Get  the  Name  for  each  Signature  in  the  Profile 
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The  user  then  enters  a  signature  name  which  matches  its  type  as  close  as  possible.  Once 
this  is  done,  the  Next  button  is  left  clicked  to  commit  to  name. 

Obviously,  if  the  user  tries  to  find  a  stack  component,  s/he  must  specify  the  other  internal 
operators  like  the  Top  operator  in  the  example  above.  The  Next  button  in  Figure  20  is  selected 
after  completing  the  specifications  of  each  of  these  operators.  Once  all  internal  operators  of  the 
desired  component  are  specified,  the  OK  button  in  Figure  20  is  selected.  The  next  step  is  to  decide 
how  close  the  match  must  be  for  a  component  to  be  selected  as  a  possible  choice. 

Figure  22  shows  how  the  matching  criteria  is  constrained.  The  KPS  (Keyword,  Profile, 
Signature  Match  Ratio)  entries  defines  a  lower  and  upper  bound  on  how  closely  the  candidate 
components  matches  the  desired  component.  Also  shown  in  Figure  22  is  an  entry  for  MBN(Map 
Block  Number).  It  is  used  to  constrain  the  display  of  the  candidate  components.  Figure  22(b) 
shows  an  example  which  user  specify  the  KPS  is  from  0.1  to  1.0  and  the  MBN  is  1. 


Figure  22.  Get  the  KPS  and  MBN 

The  final  step  prior  to  doing  the  search  is  specifying  the  Ground  Equation  which  is 
required  by  the  MLFRT(shown  in  Figure  23(a). 
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(b) 

Figure  23.  Get  Ground  Equation  for  OBJ3 

The  Ground  Equations  are  needed  for  the  semantic  behavior  matching  of  all  the  internal 
operators  previously  specified.  These  equations  are  built  for  utilizing  the  OBJ3  Algebra  Specifica¬ 
tion  Language.  If  the  user  is  not  familiar  with  this  language,  outside  help  will  be  required  as  that  is 
beyond  the  scope  of  this  manual.  An  example  of  a  Ground  Equation  for  a  Stack-like  component 
query  is  displayed  in  figure  23(b). 

The  Next  button  of  Figure  23  has  similar  functionality  as  the  Next  button  did  in  Figure  21. 
It  will  clear  the  ground  equation  keyin  buffer  and  let  the  user  keyin  the  next  ground  equation. 
After  all  the  information  is  entered,  left  click  the  OK  button  and  the  window  displayed  in  Figure 
24  will  appear. 


Figure  24.  Start  Search  Panel 

The  final  step  in  the  query  process  is  to  push  the  Search  button  and  the  search  will  be  exe¬ 
cuted.  The  system  will  feed  the  query  specification  into  some  particular  query  form,  and  feed 


them  into  the  Multi-Level  Filtering  Retrieval  Module  which  uses  a  DFS  algorithm  to  look  up  the 
software  base  and  retrieves  the  proper  candidate  components. 

Here  is  a  practical  example: 

Suppose  that  a  user  submits  a  query  containing  the  following  information: 

•  The  keywords  are:  Booch,  Data-Structure,  Stack. 

•  The  partial  specification  is: 

Package  Stack-Of-Nat  is  Type  Stack; 

—  Query  operations 
function  Empty (Out:  Stack)  . 
function  Top (In:  Stack;  Out:  Nat)  . 
function  Push ( In :  Nat,  Stack;  Out:  Stack)  . 
function  Pop (In:  Stack;  Out:  Stack)  . 

—  Query  ground  equations 

Top  Push (1, Empty)  =  Top  Pop (Push(6, Push (1, Empty) ) )  . 

Pop  Push (7, Push (1, Empty ) )  =  Push(l,Emty)  „ 

End  of  Package  Stack-Of-Nat; 

•  The  selection  criterion  is  to  choose  component  that  has  a  KPS  from  0.1  to  1.0.  The 
MBN  is  selected  to  be  1. 

Given  this  query,  the  program  scan  the  operations  above  to  compute  the  profile  table 
The  result  which  comes  out  will  include  following  information: 


Find  component:  Stack2.obj 
Using  Map  Number:  1 

KeywordRank:  1.0E+00,  ProfileRank:  1.0E+00 

SignatureRank:  1.0E+00,  SemanticRank:  4.0E+00 

The  ComponentRank  Value:  4.0E+00 


Find  component:  list.obj 
Using  Map  Number:  1 

KeywordRank:  6.7E-01,  ProfileRank:  1.0E+00 

SignatureRank:  1.0E+00,  SemanticRank:  4.0E+00 
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The  ComponentRank  Value:  2.7E+00 


Find  component:  queue,  obj 
Using  Map  Number:  2 

KeywordRank:  6.7E-01,  ProfileRank:  1.0E+00 

SignatureRank:  1.0E+00,  SemanticRank:  2.0E+00 

The  ComponentRank  Value:  1.3E+00 


Find  component:  bag. obj 
Using  Map  Number:  3 

KeywordRank:  6.7E-01,  ProfileRank:  1.0E+00 

SignatureRank:  1.0E+00,  SemanticRank:  0.0E+00 

The  ComponentRank  Value:  0.0E+00 


The  query  produced  four  candidate  components  which  are  all  very  similar.  The  output  is 
listed  in  order  of  matching  degree.  Notice  that  Stack2.obj  has  a  higher  ComponentRank  Value 
than  all  the  rest  and  therefore  is  probably  the  best  candidate  for  the  query.  It  is  now  up  to  the  user 
to  decide  which  one  s/he  wants,  or  go  back  and  redo  the  query  with  tighter  specification  require¬ 
ments. 


B.  THE  MAINTENANCE  OPTION 

When  maintaining  the  software  library,  the  CAPS  manager  has  to  push  the  Maintenance 
button  shown  previously  in  Figure  14.  Software  Base  system  will  pop  up  as  shown  in  Figure  25. 


Ill 


Figure  25.  CAPS  Software  Base  Maintenance  Menu 


According  to  the  functional  requirements  of  the  SBGUI,  software  base  maintenance  work 
includes  library  creation,  selection,  deletion,  and  backup.  After  the  DBM  A  selects  a  desired 
library,  s/he  should  be  able  to  append,  delete,  modify,  and  browse  software  components. 
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APPENDIX  E  -  SBGUI  TAE  SOURCE  CODE 


--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE. 

--  ***  File:  global__s.a 

—  ***  Generated:  Feb  20  10:57:53  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

__  ***  Application:  CAPS  Software  Base 


************************************************************************** 

* 

*  Global  --  Package  SPEC 

* 

************************************************************************** 


with  X_Windows; 
with  Text_IO; 
with  TAE; 

with  SYSTEM; 

use  TAE, SYSTEM, Text _IO; 

package  Global  is 


PURPOSE : 

This  package  is  automatically  "with"ed  in  to  each  panel  package  body. 
You  can  insert  global  variables  here. 


INITIALIZATION  EXCEPTIONS:  (none) 
NOTES:  (none) 

REGENERATED : 

This  file  is  generated  only  once, 
impacting  automatic  code  merge. 

CHANGE  LOG: 

20 -Feb- 9 6  TAE  Generated 


Therefore,  you  may  modify  it  without 


package  Taefloat_IO  is  new  Text_IO . Float_IO  (TAE . Taef loat ) ; 
Default_Display_Id  :  X__Windows  .Display; 


--ADDED 


--  ADDED  By  Ruey-Wen  (Vincent)  Hong 
--  This  part  is  only  for  Pan_Opdetail„b.a 


type  sig_chk_type  is  array(1..10)  of  string(l-.l); 
Sig_Exist__Chk_Vec  :  sig„chk_type  :  = 

^  n  q  ii  ^  ii  q  H  ,  M  ©  ** ,  ii  o  "  /  11  o  *' ,  "  0  '*  M  0  ”  11 0 11  "  0  "  11 0  ”  )  * 
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type  sig_keep_vec_type  is  array (1.. 10)  of  string ( 1 .. 1) ; 
Sig_Keep_Vec  :  sig_keep_vec_type  :=  (others  =>  "  ") ; 

Sig_Keep_Vec  :  array(1..10)  of  string(l..l)  :  =  (others  =>  M  ” ) ; 

Sig_Keep_Vec  :  array  (1..1)  of  String  (1..10); 

Sig_Keep_Vec  :  String (1 .. 10 )  :=  (others  =  >  "  "); 

skv_index  :  integer  :=  1; 


kps_from  :  float; 
kps_to  :  float; 
mbn  :  natural ; 


--  MODIFIED/ADDED 


library  :  String  (1..10):=  (  1 A '  , 1  d '  f '  a '  , other s=> 1  '); 

COMPONENT_IS__OPERATOR  :  BOOLEAN; 


1 ib_t o_de 1 e t  e 
path 

proto__pref  ix 

Query  psdl 

Directory 

kwquery_out file 

query_outf ile 

component 

directory_array 

dir  ec  t  ory_f  i  1  e_name 

lib__vec 

f ile_vec 

Is_a_directory 

Upper_directory 

Component_add 

Component_update 

Query 

current_directory 
directory_f ile 
cur__dir___index 
lib_count 
nuin__of_comp 


String  (1..10):=  (others=>'  • ); 

String ( 1 . . 80 ): =  (others=>'  ’ ); 

String ( 1 . . 80 )  :  =  (others=>  5  ' ) ; 

String (1. .80) :=  (others=>‘  '); 

String (1 .  . 80) : =  (others=>'  '); 

String ( 1 . *15) : ="kwquery_outf ile" ; 

String  (1.  .13)  :  =  "query__outf  ile”  ; 

String (1. .80) :=  (others=>'  '); 

String  (1..27):=  (others=>‘  '); 

String (1. .14)  :=  "directory_f ile” ; 

s_vector (1. .20)  :  =  (others=>  new  STRING ( 1 . . 10 ) ) ; 
s_vector (1 . . 1000) : =  (others=>  new  STRING (1 .. 80 )) ; 
Boolean : = FALSE ; 

Boolean : -FALSE ; 

Boolean : =FALSE ; 

Boolean : = FALSE ; 

Boolean : -FALSE ; 

array (1.. 20)  of  String (1 .. 80 ) ; 

f  ile__type; 

integer : =1 ; 

integer : =0; 

integer :=1; 


--  MODIFIED 

com  :  constant  String := 

H /n/ suns 7 /work/caps93/SUN4/bin/sb  " ; 

parse  :  constant  String: =" /n/sun54/work/caps92/src/ 

sof tware_base / integrate / " ; 

gui_directory  :  constant  String: =" /n/sun54/work/caps92/src/ 

user_int er f ace /sb_inter face/" ; 
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-ADDED 

OPERATOR__FILE_NAME  :  constant  STRING  :=  "operator  psdl  spec.txt" ; 

TYPE_FILE_NAME  :  constant  STRING  :=  "type_psdLspec.txt"; 

PROTOTYPE_FILE_NAME  :  constant  STRING  :=  "prototype_psdl_spec.txt"; 
com2  :  constant  String := 


com3 

-  THE_STATUS 
HAS__GENERICS 
QC_IN_P  ARAMS, 
QC_OUT__PARAMS , 
SBC_IN_PARAMS, 
SBC_OUT_P  ARAMS , 

-  GEN_P ARAMS 
QC_IN_COUNT, 
QC_OUT_COUNT , 
SBC_IN_COUNT, 
SBC__OUT_COUNT  , 
GEN_COUNT 

-  SBC_NAME, 

-  QC_NAME 


" /n/suns7/work/caps93/SUN4/bin/opsig 
constant  String := 

" /n/suns7/work/caps93/SUN4/bin/adtsig 


:  COMPONENTS  TATUS; 
:  BOOLEAN; 


•» . 


:  PARAMETERS; 


:  INTEGER; 

:  PSDL__ID_PKG .  PSDL_ID  ; 


App 1 icat ion_Done 


--  Subprogram  SPEC 


function  Application__Done 
return  Boolean; 


PURPOSE : 


--1  This  function  returns  true  if  a  "quit"  event  handler  has  called 
--1  Set_Application_Done/  otherwise  it  returns  false. 


EXCEPTIONS : 


( none ) 


NOTES : 


(none) 


Set_Application_Done 


--  Subprogram  SPEC 
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procedure  Set_Application__Done; 


PURPOSE : 

This  procedure  can  be  used  by  an  event  handler ,  typically  a  "quit" 
button,  to  signal  the  end  of  the  application. 

EXCEPTIONS :  ( none ) 

NOTES:  (none) 

--ADDED 


system_call  --  Subprogram  SPEC 


procedure  system_call (command  :  STRING); 

--I  PURPOSE: 

-- I  This  procedure  is  used  to  make  unix  system  calls  from  within  the 
program. 


strlen  Subprogram  SPEC 


procedure  strlen (s:  in  String;  n:  in  out  Integer); 

--I  PURPOSE: 

-- I  This  procedure  is  used  to  get  the  length  of  strings. 


list_directory  --  Subprogram  SPEC 


procedure  list_directory (f ile  : in  out  file_type; 

file_name:in  out  string; 
file_vec  :in  out  s__vector; 

I 

:in  out  integer); 

--I  PURPOSE: 

-- |  This  procedure  is  used  to  obtain  the  contents  of  unix  directory 
structures . 
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list_components  --  Subprogram  SPEC 


procedure  list_components ( f ile  :in  out  file_type; 

f  ile__name :  in  out  string; 
file_vec  :in  out  s_vector; 

I 

:in  out  integer); 

--I  PURPOSE: 

-- I  This  procedure  is  used  to  read  the  component  list  from  a  text  file  and 
—  I  fill  them  into  a  s_vector  structure  to  be  displayed  in  a  TAE  panel. 


read_directory  —  Subprogram  SPEC 


procedure  read_directory (f ile  :in  out  file_type; 

file_name:in  out  string; 
dir_name  :in  out  string) ; 

--I  PURPOSE: 

--I  This  procedure  is  used  to  read  the  name  of  the  current  directory  and 
-- I  to  get  the  path  from  a  text  file. 


error string  --  Subprogram  SPEC 


procedure  errorstring  ( file  :  in  out  file__type; 

f ile_name : in  out  string; 
err__str  :in  out  string); 

-- I  PURPOSE: 

--I  This  procedure  is  used  to  read  the  error  message  given  by  the  software 
--  j  base  program. 


parse_line  --  Subprogram  SPEC 
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procedure  parse_line ( s :  in  String); 

--I  PURPOSE: 

-”|  This  procedure  is  used  to  determine  if  the  selected  line  is  a  directory 
-- |  or  a  file  and  if  it  is  a  directory  it  gets  the  identity  of  the 
directory. 


end  Global; 


--  ***  TAE  Plus  Code  Generator  version  V5 . 3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  global_b.a 

--  ***  Generated:  Feb  20  10:57:53  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


* 

*  Global  --  Package  BODY 

* 


package  body  Global  is 

--I  NOTES:  (none) 

--I 

-- |  REGENERATED: 


This  file  is  generated  only  once, 
impacting  automatic  code  merge. 


Therefore,  you  may  modify  it  without 


CHANGE  LOG: 

20 -Feb» 9 6  TAE 


I s_App 1 icat ion_Done 


Generated 
Boolean  :=  FALSE; 


Application_Done  —  Subprogram  BODY 


function  Application_Done 
return  Boolean  is 

— - 1  NOTES:  (none) 

begin  --  Application_Done 

return  Is_Application_Done; 
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end  Application__Done; 


Set_Application_Done  --  Subprogram  BODY 


procedure  Set_Application_Done  is 
--I  NOTES:  (none) 
begin  --  Set_Application_Done 
Is_Application_Done  :=  TRUE; 
end  Set_Application_Done; 


--ADDED  By  RUEY-WEN  HONG  960110 


system_call 


- -  Subprogram  BODY 


procedure  system__call  (command  :  STRING)  is 

procedure  system_c  (command  :  ADDRESS) ; 
pragma  INTERFACE ( C ,  S YSTEM_C ) ; 
pragma  INTERFACE_NAME  ( SYSTEM_C ,  "_systemM  )  ; 
TEMP  :  constant  STRING  :=  command&ASCII .  NUL ; 
ERROR  :  INTEGER; 


begin 

SYSTEM_C( TEMP1 ADDRESS) ; 
end  system_call; 


strlen 


--  Subprogram  BODY 


procedure  strlen (s:  in  String;  n:  in  out  Integer)  is 
I  :  Integer  : =  1; 


begin 

loop 

if  s(I)  =  1  1  then 
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exit; 
end  if; 
I ; =1+1; 

end  loop; 

n:=  1-1; 
end  strlen; 


list_directory 


---  Subprogram  BODY 


procedure  list__directory  (f  ile :  in  out  file_type; 
file_name:in  out  string; 
file_vec  :  in  out  s_vector; 

I  :in  out  integer) is 
len  :  integer  :=1; 

begin 


I ;  =1; 

open  (file  ,xnode=>in__f  ile  ,name=>f  ile_name)  ; 
f ile„vec (I) .all ( 1 . .2) :  =  " . .  " ; 

for  cl  in  3.. 80  loop 

file_vec(I)  .all (cl)  :  =  '  1  ; 

end  loop; 

while  not  end_of_file  (file)  loop 


I : =1+1 ; 


Text_IO.get„line (f ile, f ile_vec (I) .all, len) ; 
for  clean  in  (len+l)..80  loop 

f ile_vec (I) .all (clean) := '  a ; 


end  loop; 
end  loop; 
close (file) ; 

exception 

when  END_ERROR  =>  null; 


end  list_directory; 


list_components 


procedure  list__components  (f  ile  :  in  out  file_type; 

file_name:in  out  string; 
file_vec  :  in  out  s_vector; 

I 
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:in  out  integer) is 

len:  integer  :=1; 

begin 


end 


I:=l; 

open  (file  , mode =>in_f ile,  name =>f  ile__name)  ; 
while  not  end_of_file  (file)  loop 

Text__IO.get_line  (file,  f  ile_vec (I) * all, len) ; 
for  clean  in  (len+l)..80  loop 

f ile_vec (I) . all (clean) : = '  ' ; 


loop; 


I: =1+1; 


end  loop; 

I : =1-1; 
close (file) ; 
end  list__components; 


read_directory 


procedure  read_directory (f ile  :in  out  file_type; 

file_name:in  out  string; 

dir_name  :in  out  string)  is 
len:  integer  : =1; 

begin 

open (file ,mode=>in_f ile, nane=>file_name) ; 
Text_IO. get_line  (file, dir_name,  len) ; 
close (file) ; 
end  read_directory; 


errorstring 


procedure  errorstring (file  :in  out  file_type; 

f ile_name : in  out  string; 

err_str  :in  out  string) is 
len:  integer  : =1; 

begin 

open(f ile, mode =>in__f ile,name=>f ile_name)  ; 
Text__IO„  get_line  (f  ile,  err_str,  len)  ; 
if  len=0  then 

Text_IO.get_line  (f  ile, err__str ,  len)  ; 
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end  if; 


close (file) ; 
exception 

when  END_ERROR  =>  close(file); 
end  error string; 


parse_line 


procedure  parse_line (s :  in  string)  is 

char : character ; 

N  : integer: =1; 

begin 


strlen(s,N) ; 
if  s (N) = ’ / '  then 

I s_a_di rectory: =TRUE; 

end  if; 
if  N=2  then 

if  s(l. .2)="  . then 
Upper_direc tory : =TRUE ; 

end  if; 
end  if ; 

end  parse_line; 


end  Global; 

--  ***  TAE  Plus  Code  Generator  version  V5  «  3  [Merge  Token:  DO  NOT  DELETE <,  ] 

__  ***  pile;  pan_backup_l_s .a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

—  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


„  _  ************************************************************************** 
_  * 

*  Panel_backup_l  --  Package  SPEC 

_  * 

_  _  ************************************************************************** 

with  TAE; 
with  X_Windows; 

package  Panel_backup_l  is 

--|  PURPOSE: 

“-I  This  package  encapsulates  the  TAE  Plus  panel:  backup__l 

--1  These  subprograms  enable  panel  initialization,  creation,  destruction. 
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and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  backup_l 

CHANGE  LOG: 

4 -Mar- 9 6  TAE  Generated 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initial ize_Panel 


Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE. Tae_Co . Collect ionJPtr  ); 


--  TAE  Collection  read  from 
--  resource  file 


--I  PURPOSE: 

-- I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 


EXCEPTIONS : 


--I  TAE .UNINITIALIZED_PTR  is  raised  if  Collect ion__Read  not  initialized 
-- I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--1  Collection_Read 


NOTES : 


(none) 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .  Tae_Wpt .  Wpt_Flags 


--  Flags  sent  to  Wpt_NewPanel . 
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: =  TAE . Tae_Wpt  .WPT_PREFERRED ; 

Re lat i ve_Window 

:  in  XJWindows  -Window 

:=  X_Windows .NullJWindow  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--!  PURPOSE: 

-- I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
~~ |  and  stores  the  panel  Id  in  Inf o . Panel_Id . 


EXCEPTIONS : 


-- |  TAE. UNINIT I ALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE - TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


NOTES : 


(none) 


Connect_Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt  .WPT_PREFERRED; 

Relative_Window 

:  in  XJWindows  .Window 

:=  XJWindows  „Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_JWindow 
--  uses  the  root  window. 


PURPOSE : 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info . Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative__Window  is  ignored. 

EXCEPTIONS : 

TAE .UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES:  (none) 
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Destroy  __Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel; 


PURPOSE : 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE .  Tae__Wpt .  BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid  id. 
NOTES : 

Info . Panel_Id  is  set  to  TAE .NULL_PANEL„ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispat ch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE . Tae_Wpt . Event_Context_Ptr  );  --  event. 


PURPOSE : 

This  procedure  calls  the  Event  Handler  specified  by  User_Context__Ptr 

EXCEPTIONS : 

Application- specific 

NOTES:  (none) 

end  Panel_backup_l; 


--  ***  Tae  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

__  ***  File:  pan_backup_l_b . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

__  ***  Author  :  By  Ruey-Wen  (Vincent)  Hong 

—  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 

_  ************************************************************************** 

_  * 

*  Panel__backup_l  --  Package  BODY 

_  * 

_  ************************************************************************** 
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with  TAE;  use  TAE; 
with  Text„IO; 
with  Global; 

--  One  "with”  statement  for  each  connected  panel. 

--  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 
—  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 


package  body  Panel_backup_l  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  backup_l 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items : 

backup__message,  full_backup,  partial_Jbackup 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

4 -Mar- 9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initializ  e_Pane 1 


Subprogram  BODY 
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procedure  Initialize_Panel 
(  Collection„Read 

:  in  TAE.Tae_Co. Collect ion_Ptr  )  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  :=  new  TAE .  TaeJWpt .  Event_Context ; 

Info. Collect ion  :=  Collection_Read; 

TAE .  Tae_Co .  Co_Find  (Info  .Collection,  ,,backup_l_v"  ,  Info. View); 
TAE.Tae_Co.Co_Find  (Info  .Collection,  "backup__l__t " ,  Inf o  .Target )  ; 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_backup_l . Init ialize_Panel :  " 

Sc  "Collection_Read  not  initialized.”); 
raise; 

when  TAE  .  Tae_Co  .  NO_STJCH_MEMBER  => 

Text_IO .  Put_Line  (  "Panel_backup_l .  Initialize__Panel :  " 

Sc  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

:  =  TAE .  Tae JWpt .  WPT__PREFERRED  ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

I  NOTES:  (none) 
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--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 


begin  --  Create_Panel 


if  Info. Panel  Id  =  Tae.Null  Panel  Id  then 


TAE . Tae_Wpt . Wpt_NewPanel 
(  Displayed 
Data__Vm 
View_Vm 

Re lat i ve_Window 
User__Context 
Flags 
Panel_Id 


=>  Global  .Def  ault_Display__Id 
=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 

=>  Info, 

=>  Panel_State, 

=>  Inf o . Panel_Id  ); 


else 

Text__IO„Put_Line  ("Panel  (backup_l)  is  already  displayed."); 
end  if; 


--  MERGE  NOTE:  Add  code  for  Create__Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 


exception 

when  TAE .UNINIT I ALIZED_PTR  => 

Text_IO .  Put_Line  (  " Panel_backup_l . Creat  e__Panel :  ” 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


When  TAE . TAE_FAIL  => 

Text_IO . Put_Line  (  "Panel_backup_l  .Creat e_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel; 


Connect_Panel 


Subprogram  BODY 


procedure  Connect_Panel 
(  Panel__State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae„Wp t . WPT_PREFERRED ; 

Re lat i ve_Window 

:  in  XJWindows  .Window 

:=  X_JWindows  .NullJWindow  )  is 

-- I  NOTES:  (none) 
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--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Re 1 at i ve_Window  =>  RelativeJWindow, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE . Tae_Wpt . Wpt__SetPanelState  ( Inf o . Panel_Id,  Panel__State)  ; 
end  if; 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_backup_l . Connect_Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 


Destroy_Panel 


- -  Subprogram  BODY 


procedure  Destroy_Panel  is 
--I  NOTES:  (none) 

MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE .  Tae__Wpt  .Wpt_PanelErase  ( Inf  o .  Panel_Id)  ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE .  Tae__Wpt .  BAD__PANEL__ID  => 

Text_IO . Put_Line  ( " Panel_backup_l . Destroy_Panel :  " 

&  "Info . Panel_Id  is  an  invalid  id."); 
raise; 
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when  TAE .  TaeJWpt .  ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed, 

--  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy_Panel; 


k++++++++++++ ++++++++++++++++++++ 


--  begin  EVENT  HANDLERS 


backup__message_Event 


--  Subprogram  SPEC  &  BODY 


procedure  backup_message_Event 

(  Info  :  in  TAE .  TaeJWpt .  Event_Context__Ptr  )  is 

—  I  PURPOSE : 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 .  .TAE .TaeJPaeconf  .STRINGS  IZE)  ; 

Count  ;  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  backup__message . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  backup_message . 

begin  --  backup_message_Event 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr,  Count); 

Text_IO . Put  ("Panel  backup_l,  parm  backup_message :  value  -  "); 
if  Count  >  0  then 

TAE .  Tae_Vm.  Vm__Extract_SVAL  ( Inf  o  .  Parm„Ptr ,  1,  Value(l)); 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text__IO .  Put__Line  (  "none "  )  ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  backup__message . 

MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  backup_message . 

end  backup_message__Event ; 
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f  u 1 l_ba c kup„E ven t 


--  Subprogram  SPEC  &  BODY 


procedure  f ull_backup_Event 

(  Info  :  in  TAE .  Tae_Wpt .  Event_Context_Ptr  )  is 

--[  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE. Tae_Taeconf .STRINGS I ZE) ; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  full_backup. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  full_Jbackup . 

begin  --  full_backup_Event 

TAE  .  Tae_Vm. Vm_Extract_Count  (Info  .  Parm_Ptr7  Count)  ; 

Text__IO.Put  ("Panel  backup_l,  parm  full_backup:  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm. Vm_Ex tract _SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)) ; 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  full__backup . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  f ull_backup . 

end  full_backup__Event; 


part i a l_backup_Event 


--  Subprogram  SPEC  &  BODY 


procedure  part ial__backup_E vent 

(  Info  :  in  TAE  .Tae_Wpt  .Event_Context__Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE . Taeint ; 

MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  partial_backup . 
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--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  partial_backup . 

begin  --  partial_backup_Event 

TAE.Tae_Vln«Vm_Extract_Count  ( Inf o . Parm_Ptr/  Count) ; 

Text__IO.Put  ("Panel  backup_l,  parxn  partial_backup :  value  =  "); 
if  Count  >  0  then 

TAE  •  Tae_Vm  .  Vta_Extract_SVAL  ( Inf  o .  Parm_Ptr ,  1,  Value  (1)  )  ; 

Text_IO . Put__Line  ( Va lue ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if ; 

MERGE  NOTE:  Add  code  BELOW  this  line  for  parxn:  partial_backup . 

MERGE  NOTE:  Add  code  ABOVE  this  line  for  parxn:  partial__backup . 

end  partial_backup_Event ; 


end  EVENT  HANDLERS 


Dispatch_Xtexn 


Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE c TaeJWpt «Event_Context_Ptr  )  is 
I  NOTES:  (none) 
begin  ---  Dispatch_„Item 

if  TAE „  Tae__Misc .  s_equal  (  "backup_message  "  ,  User__Context_Ptr  •  Parm_Name ) 

then 

backup__message_Event  (TJser_Context_Ptr)  ; 
els  if  TAE .  Tae__Misc  .  s_equal  ( Mfull_backup" ,  User_Context_Ptr .  Parm_Name) 

then 

full_backup_Event  (XJser_Context_Ptr)  ; 
elsif  TAE . Tae_Misc . s_egual  ( "part ial_backup" , 

User_Context_Ptr . Parm_Name )  then 

partial_backup_Event  (User_Context__Ptr)  ; 
end  if; 

end  Dispatch_Xtem; 


132 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel__backup_l ; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  pan_create_l_s .a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


* 

*  Panel__create_l  --  Package  SPEC 

* 


with  TAE; 
with  X_Windows; 

package  Panel_create_l  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  create__l 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  create_l 


CHANGE  LOG: 

4 -Mar- 9 6  TAE 


Generated 


Info  :  TAE .  Tae__Wpt .  Event_Cont  ext__Ptr ;  --  panel  information 


Initial ize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 
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TAE  Collection  read  from 
resource  file 


(  Collection_Read 

:  in  TAE . Tae„Co . Collect ion_Ptr  ); 


-- |  PURPOSE: 

-- |  This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 


EXCEPTIONS : 


-- |  TAE .UNINITIALXZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
|  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
-- |  Collect ion_Read 


NOTES : 


(none) 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create^Panel 
(  Panel_State 

:  in  TAE. Tae_Wp t .Wpt_F lags 

;  =  TAE  o  Tae__Wpt  .WPT_P REFERRED  ; 

Re lat i ve_Window 

:  in  XJWindows .Window 

;=  X_Windows .Null .Window  ); 


--  Flags  sent  to  Wpt__NewPanel . 


--  Panel  origin  is  offset  from 
this  X  Window.  NullJWindow 
--  uses  the  root  window. 


PURPOSE : 


This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel_Id . 


EXCEPTIONS : 


--I  TAE o UNINITIAL I ZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE . TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


NOTES : 


(none) 


Connect__Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wp t . WPT_PREFERRED ; 
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Re lat i ve_Window 

:  in  X_Windows  *  Window 

:  =  X_Windows  .Null__Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE: 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel__State  and  stores  the  panel  Id  in 
Info . Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 

TAE .  UNINITIAL  I  ZED__PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae„Wpt . BAD_S TATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES:  (none) 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


PURPOSE : 

This  procedure  erases  a  panel  from  the  screen  and  de -allocates  the 
associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE . Tae_Wpt . BAD_PANEL__ID  is  raised  if  Info . Panel_Id  is  an  invalid  id. 
NOTES : 

Inf o .Panel_Id  is  set  to  TAE . NULL_PANEL__ID ,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


—  Subprogram  SPEC 


procedure  Dispatch_Item 
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(  User_Context_Ptr 

:  in  TAE .  Tae_Wpt .  Event_Context_„Pt  r 


--  Wpt  Event  Context  for  a  PARM 
) ;  --  event . 


--I  PURPOSE: 

-- |  This  procedure  calls  the  Event  Handler  specified  by  User_Context__Ptr 


EXCEPTIONS : 


-- |  Application-specific 
--I 

—  I  NOTES:  (none) 


end  Panel__create_l; 


--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

__  ***  pile:  pan_create_l_b.a 

__  *#*  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 

_  ************************************************************************** 

_  * 

*  Panel_create_l  --  Package  BODY 

_ _  * 

_  *******************  35c****************************************************** 

with  TAE;  use  TAE; 
with  Text__IO; 
with  Global; 


--  One  "with"  statement  for  each  connected  panel. 

--  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  ,,with,,s  ABOVE  this  line. 


package  body  Panel_create_l  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event" „ 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 
The  panel's  name  is  changed  (not  title) 
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For  panel:  createj 


-I  The  following  WorkBench  operations  will  also  cause  regeneration: 

- |  An  item  is  deleted 

- |  A  new  item  is  added  to  this  panel 

-|  An  item's  name  is  changed  (not  title) 

-I  An  item's  data  type  is  changed 

-I  An  item's  generates  events  flag  is  changed 

-I  An  item's  valids  changed  (if  item  is  type  string  and  connected) 

-I  An  item's  connection  information  changed 

-  I  For  the  panel  items : 

- 1  create_l_disp,  create_l_keyin,  create_l__label 


CHANGE  LOG: 


-I  MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 
-I  4-Mar-96  TAE  Generated 

-I  MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel 


~ -  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE  . Tae_Co . Collect ion__Ptr  )  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  : =  new  TAE . Tae_Wpt . Event_Context ; 

Info . Collection  : =  Collect ion_Read ; 

TAE.Tae__Co.Co__Find  (Inf  o  .Collection,  "create^v",  Info. View); 
TAE.Tae_Co.Co_Find  (Inf o .Collection,  "create_l_t " ,  Inf o .Target ) ; 

MERGE  NOTE:  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( "Panel_create_l . Initialize_Panel :  " 

&  " Collect ion_Read  not  initialized."); 
raise; 
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When  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO .  Put_Line  (  "Panel_create__l .  Initial ize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create__Panel 


Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE . TaeJWpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re  lat  i  ve__Window 

:  in  X_Windows  .Window 

:=  X_Windows .Null_Window  )  is 

--I  NOTES  %  (none) 

--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  --  Create_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
TAE  .  Tae__Wpt .  Wpt__NewPanel 


Display_Id 

=> 

Global  .  Default__Display_Id, 

Data_Vxn 

=  > 

Inf o. Target , 

View_Vm 

=> 

Inf o .View, 

Relative_Window 

=> 

Relative_Window, 

User_Context 

=> 

Info, 

Flags 

=> 

Panel_State, 

Panel_Xd 

=> 

Inf o .Pane l_Id  ); 

else 

Text_IO . Put_Line  ("Panel  (create_l)  is  already  displayed."); 
end  if; 

--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 

—  MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 

exception 

when  TAE . UNINITXALIZED_PTR  => 

Text_IO .  Put__Line  (  " Panel_creat e_l .  Create^Panel :  ” 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 
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when  TAE .  TAE_J?AIL  =  > 

Text_IO . Put_Line  ( " Panel_create_l . Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel; 


Connect_Panel 


Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE  .Tae_Wpt  .Wpt__F lags 

:  =  TAE  .  Tae_Wp t .  WPT_PREFERRED  ; 

Re lat i ve_Window 

:  in  X_Windows  .Window 

:=  X_Windows  .Null__Window  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect_Panel 

if  Info.Panel__Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE . Tae_Wpt . Wpt_SetPanelState  ( Inf o . Paneled,  Panel_State) ; 
end  if; 

--  MERGE  NOTE:  Add  code  for  ConnectPanel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wp t . BAD_STATE  =  > 

Text_IO .  Put_Line  (  "Pane l_cr eat e__l .  Connect__Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 
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Destroy_Panel 


- -  Subprogram  BODY 


procedure  Destroy_Panel  is 
-- I  NOTES;  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase ( Info . Panel_Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

---  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( "Panel_create_l .Destroy_Panel :  " 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel; 


f-  +  +  +  4-  ++++++++++ 


--  begin  EVENT  HANDLERS 


create_l__disp_Event 


Subprogram  SPEC  &  BODY 


procedure  create_l_disp__Event 

(  Info  :  in  TAE  .  Tae__Wpt .  Event_Context_Ptr  )  is 

--I  PURPOSE; 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

-- |  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 .  .TAE  .Tae__Taeconf  .  STRINGS  IZE)  ; 
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Count  :  TAE.Taeint; 


"  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  create_l_disp . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  create__l_disp . 

begin  --  create_l_disp_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text_IO.Put  ("Panel  create_l,  parm  create_l_disp :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vln_Extrac  t__SVAL  (Info . Parm_Ptr,  1,  Value (1)); 

Text__IO .  Put_Line  (Value  (1)  )  ; 
else 

Text__IO .  Put_Line  ("none"); 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  create__l_disp . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  create__l_disp  . 

end  create_l_disp__Event ; 


create_l_keyin_Event 


--  Subprogram  SPEC  &  BODY 


procedure  create_l_keyin_Event 

(  Info  :  in  TAE . TaeJWpt .Event_Context_Ptr  )  is 

PURPOSE: 

"I  EVENT  HANDLER,  Insert  application  specific  information, 

—  I 

-- I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE .Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

—  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  create_l_keyin . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  create_l_keyin. 

begin  --  create_l_keyin_Event 

TAE . Tae_JVm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text_IO.Put  ("Panel  create_l,  parm  create_l_keyin :  value  =  "); 
if  Count  >  0  then 

TAE  .  Tae_Vm.  Vtn_Extract_SVAL  ( Inf  o .  Parm_Ptr ,  1,  Value(l)); 

Text_IO .  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 
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--  MERGE  NOTE;  Add  code  BELOW  this  line  for  parm:  create__l_keyin . 
--  MERGE  NOTE;  Add  code  ABOVE  this  line  for  parm;  create_l__keyin . 

end  create_l_keyinJEvent; 


create_l_label_Event 


---  Subprogram  SPEC  &  BODY 


procedure  create_l_label_Event 

(  Info  ;  in  TAE  *  Tae__Wpt  .  Event_Context_Ptr  )  is 

— |  PURPOSE; 

--!  EVENT  HANDLER-,  Insert  application  specific  information. 

— ! 

--!  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1  * . TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm;  create__l_label 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  create_l__label 

begin  --  create_l_label_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text_IO . Put  ("Panel  create_l,  parm  create_l__label :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm * Vm_Ext rac t_SVAL  (Info . Parm_Ptr/  1,  Value (1) ) ; 

Text__IO .  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO .  Put__Line  (  "none "  )  ; 
end  if; 

---  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  create_l_label . 

--  MERGE  NOTE;  Add  code  ABOVE  this  line  for  parm;  create_l_label . 

end  cr eat e_l_labe l_Event ; 


end  EVENT  HANDLERS 


Dispatch__Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 
--I  NOTES:  (none) 
begin  --  Di spat ch_I tern 

if  TAE . Tae_Misc . s_equal  ( ncreate_l_disp" ,  User_Cont ext_Ptr . Parni_Name )  then 
create_l_disp_Event  (User_Context_Ptr)  ; 
elsif  TAE . Tae_Misc . s_equal  ( "create__l_keyin" , 

User„Context_Ptr . Parm_Name)  then 

create_l_keyin_Event  (User_Context_Ptr) ; 
elsif  TAE .  Tae_Misc  .s__equal  (  "create_l__label"  , 

User_Cont ext_Pt r . Parm_Name )  then 

create_l_label_Event  (User__Context_Ptr)  ; 
end  if; 

end  Dispatch_Item; 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_create_l; 

—  ***  TAE  pius  code  Generator  version  V5 . 3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  pan_delete_l_s .a 

__  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

—  ***  Date  :  Mar  5,  1996 

„  ***  Application:  CAPS  Software  Base 


************************************************************************** 

* 

*  Panel_delete_l  --  Package  SPEC 

* 

************************************************************************** 


with  TAE; 
with  X_Windows; 

package  Pane l_de let e_l  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  delete_l 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 
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INITIALIZATION  EXCEPTIONS :  (none ) 


NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  delete_l 


CHANGE  LOG: 

4 -Mar- 9 6  TAE 


Generated 


Info  :  TAE . Tae__Wpt . Event_Context_Ptr ;  --  panel  information 


Initial ize_Panel 


Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE. Tae_Co . Collect ion_Ptr  ); 


--  TAE  Collection  read  from 
--  resource  file 


--!  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 


EXCEPTIONS : 


--I  TAE.UNINITIALIZED„PTR  is  raised  if  Collection__Read  not  initialized 
- - |  TAE . Tae_Co . NO_SUCH„MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


NOTES : 


(none) 


Create_Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . TaeJWpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 


--  Flags  sent  to  Wpt__NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  NullJWindow 
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X_Windows .Null_Window  ) ; 


--  uses  the  root  window. 


PURPOSE : 

This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id. 

EXCEPTIONS : 

TAE . UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE . TAE_FAIL  is  raised  if  the  panel  could  not  be  created 

NOTES:  (none) 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel__State 

:  in  TAE .TaeJWpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X__Windows  .Window 

:=  X_Windows  .Null_Window  ); 


--  Panel  origin  is  offset  from 
—  this  X  Window.  Null_Window 
--  uses  the  root  window. 


-- I  PURPOSE: 

-- I  If  this  panel  doesn’t  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
-“I  Info .Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

-- I  In  this  case,  Relative_Window  is  ignored. 


EXCEPTIONS : 

TAE. UNINITIALIZED  PTR 


is  raised  from  Create_Panel  if  the  panel 


is 


--I  not  initialized 

--I  TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
-- I  created 

--!  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
-- I  Panel_State  is  an  invalid  state 


NOTES:  (none) 


Destroy_Panel 


--  Subprogram  SPEC 
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procedure  Destroy__Panel; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
- - |  associated  panel  object  (not  the  target  and  view). 

-~|  EXCEPTIONS: 


TAE .  Tae__Wpt .  BAD_PANEL_ID  is  raised  if  Inf  o  .  Panel_Id  is  an 
NOTES : 

Info.Panel_Id  is  set  to  TAE . NULL_PANEL_ID ,  and  should  not 
in  any  Wpt  call  until  it  is  created  again. 


invalid  id. 


referenced 


Dispatch_Item 


Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARK 

:  in  TAE . Tae_Wpt . Event__Context_Ptr  );  --  event. 


I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context__Ptr 


EXCEPTIONS : 


--I  Application-specific 

--  I 

--1  NOTES:  (none) 


end  Panel_delete_l; 

--  ***  pius  code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE . ] 

--  ***  File:  pan_.de le t e_l_b . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


_  ************************************************************************** 

_  * 

*  Pane l__de  let e_l  -™  Package  BODY 

_  * 

_  ************************************************************************** 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 

--  One  "with"  statement  for  each  connected  panel. 
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—  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  "with,,s  ABOVE  this  line. 


package  body  Panel_delete_l  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  delete_l 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 
An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items : 
delete_l_disp 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

4 -Mar- 9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection„Read 
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:  in  TAE.Tae_Co  .Collection__Ptr  )  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

—  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Xnitialize_Panel 

Info  : =  new  TAE . Tae_Wpt . E vent _Cont ext ; 

Info. Collect ion  :=  Collection_Read; 

TAE  .Tae_Co  .Co_Find  ( Inf  o . Collection,  "delete_l__vn ,  Inf o.  View)  ; 

TAE . Tae_Co . Co_Find  ( Info .Collection,  "delete_l_t " ,  Inf o . Target ) ; 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initial ize_Panel  ABOVE  this  line. 

exception 

when  TAE .UNINITIALIZED_PTR  => 

Text__IO . Put_Line  ( " Panel_delete_l . Initialize_Panel :  " 

&  ,,Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text__IO .  Put_Line  ( "Panel_delete_l .  Initialize__Panel :  " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Great e^Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel__State 

:  in  TAE .  Tae_Wpt  .Wpt__F lags 

: =  TAE . Tae_Wp t . WPT -PREFERRED ; 

Re lat iveJWindow 

:  in  X__Windows -Window 

s=  X_Windows .Null_Window  )  is 

—  I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Create__Panel  BELOW  this  line. 
MERGE  NOTE:  Add  declarations  for  Great e_Panel  ABOVE  this  line. 

begin  --  Create_Panel 
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if  Inf  o  .  Panel_Id  =  Tae  .Null_JPanel_Id  then 
TAE .  Tae_Wpt  .  Wpt_NewPanel 


Display_Id 

=> 

Global. Default_Display_Id, 

Data_Vm 

=> 

Info . Target, 

View__Vm 

=  > 

Info. View, 

Relative_Window 

~  > 

Relat iveJWindow, 

User_Context 

=  > 

Info, 

Flags 

=  > 

Panel_State, 

Panel_Id 

=  > 

Inf o . Panel_Id  ); 

else 

Text_IO .  Put__Line  ("Panel  (delete_l)  is  already  displayed."); 
end  if ; 

--  MERGE  NOTE:  Add  code  for  Creat  e___Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Create^Panel  ABOVE  this  line. 

exception 

when  TAE . UNINITIAL I ZED_PTR  => 

Text_IO . Put_Line  ( " Pane  l_de  let  e__l . Creat e_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise ; 

when  TAE  .  TAE_FAIL  => 

Text_IO . Put_Line  ( "Pane l_de let e__l . Creat e_Panel :  " 

&  "Panel  could  not  be  created."); 
raise; 

end  Creat e_Panel; 


Connect_Panel 


- -  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_F lags 

:  =  TAE  .  Tae__Wpt .  WPT_PREFERRED  ; 

Relat ive_Window 

:  in  X__Windows  .Window 

:  =  X__Windows  .Null_Window  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect_Panel 
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if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  RelativeJWindow  =>  RelativeJWindow, 

Panel_State  =  >  Panel_State  ) ; 

else 

TAE .Tae_Wpt .Wpt_SetPanelState  ( Inf o * Panel_Id,  Panel^State) ; 
end  if; 

MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_STATE  =  > 

Text_IO .  Put_Line  ( 11  Pane l_de let e_l .  Connect_Panel :  n 
&  "Invalid  panel  state."); 
raise; 

end  Connect__Panel; 


Destroy_Panel 


Subprogram  BODY 


procedure  Destroy_Panel  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE  * Tae_Wpt .Wpt_PanelErase ( Info . Panel_Id) ; 

MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Pane  l_de  let  e__l . Destroy_Panel :  " 

&  "Info. Pane l_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt .  ERASE__NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

--  Trap  this  exception  and  do  nothing. 

null; 
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end  Destroy_Panel; 


--  begin  EVENT  HANDLERS 


delete_l_disp„JEvent 


--  Subprogram  SPEC  &  BODY 


procedure  delete_l_disp_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

—  I  PURPOSE : 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  ( 1  * . 1 )  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  delete__l_disp . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  delete_l__disp . 

begin  --  dele  te__l_disp_E  vent 

TAE . Tae_Vm . Vm_Extrac t_Count  (Inf o . Parm_Ptr,  Count) ; 

Text__IO .  Put  ("Panel  delete__l,  parm  delete__l_disp :  value  =  " )  ; 
if  Count  >  0  then 

TAE . Tae__Vm.  Vm_Extract__SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text_IO .  Put___Line  (Value  ( 1 )  )  ; 
else 

Text__IO .  Put_Line  (  "none"  )  ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  delete__l_disp . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  delete_l_disp . 

end  delete_l_disp_Event ; 


--  end  EVENT  HANDLERS 
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Dispat ch_Item 


Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE  .  Tae_Wpt .  Event_Context__Ptr  )  is 
--I  NOTES:  (none) 
begin  --  Dispatch_Item 

if  TAE  .  Tae_Misc  .  s_equal  ( "delete_l_disp" ,  User__Context_Ptr .  Parm_Name)  then 
delete_l_disp_Event  (User_Context_Ptr )  ; 
end  if; 

end  Dispatch„Item; 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_delete_l; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  pan_go_s.a 

__  ***  Generated:  Mar  4  14:14:09  1996 

***  Author  :  Ruey-Wen  (Vincent)  Hong 

—  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


* 

*  Panel_go  --  Package  SPEC 

* 


with  TAE; 
with  X_Windows; 

package  Panel_go  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  go 

These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS :  (none ) 

NOTES:  (none) 
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REGENERATED: 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  go 

CHANGE  LOG: 

4 -Mar- 9 6  TAE  Generated 


Info  :  TAE  .TaeJWpt .  Event__Context_Ptr ;  --  panel  information 


Initialize_Panel 


Subprogram  SPEC 


procedure  Initialize__Panel 
(  Collect ion__Read 

:  in  TAE .Tae_Co . Collect ion_Ptr  ); 


--  TAE  Collection  read  from 
--  resource  file 


PURPOSE : 


This  procedure  initializes  the  Info .Target  and  Info. View  for  this  panel 


--I  EXCEPTIONS: 

--I  TAE . UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


NOTES : 


(none) 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_F lags 

:  =  TAE  .  Tae_Wpt .  WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows  .Window 

:=  X_Windows  .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
—  this  X  Window.  Null__Window 
--  uses  the  root  window. 


--I  PURPOSE: 

-- I  This  procedure  creates  this  panel  object  in  the  specified  Panel__State 
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and  stores  the  panel  Id  in  Inf o . Panel_Id. 

EXCEPTIONS : 

TAE * UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 

NOTES;  (none) 


Connec t_Pane 1 


--  Subprogram  SPEC 


procedure  Connec t_JPanel 
(  Panel_State 

:  in  TAE .  Tae__Wpt  . Wpt_Flags 

:=  TAE .  Tae__Wpt . WPT_PREFERRED  ; 

Re lat i ve_Window 

:  in  X_Windows .Window 

;=  X_Windows  .Null_Window  ); 


Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE : 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info . Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel__State . 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 

TAE .UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES;  (none) 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel; 

-<-1  PURPOSE: 

-- |  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
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associated  panel  object  (not  the  target  and  view) 


EXCEPTIONS : 

TAE . Tae_Wpt . BAD_PANEL__ID  is  raised  if  Inf o . Panel_Id  is  an  invalid  id. 
NOTES : 

Inf o . Panel_Id  is  set  to  TAE . NULL_PANEL_ID ,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE . Tae_Wpt . Event_Context_Ptr  );  --  event. 


--I  PURPOSE: 

-- I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


-- I  EXCEPTIONS: 

—  I  Application-specific 

—  I 

—  I  NOTES:  (none) 


end  Panel_go; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

__  ***  pile:  pan_go_b.a 

--  ***  Generated:  Feb  22  12:17:44  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 

-  A*********************************************,*.*************************** 

_  * 

*  Panel_go  --  Package  BODY 

_  * 

—  ************************************************************************** 
with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 


--  One  "with"  statement  for  each  connected  panel, 
with  Panel„grnd_eq; 

--  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 
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--  ADDED  By  RUEY-WEN  HONG  960222 


With  Op_Util_Mods;  Use  Op_Util_Mods; 

With  Global_def;  Use  Global__def; 

With  Query_processing__pkg;  Use  Query_jprocessing__pkg; 

With  Swb_pkg;  Use  Swb_pkg; 

With  Swb_.de f _pkg ;  Use  Swb_def__pkg; 

With  S ignatur e_mat ch_pkg ;  Use  Signature_match_pkg; 

With  Semantic_match_pkg;  Use  Semantic_match_jpkg; 

With  Init__pkg;  Use  Init_pkg; 

With  Formulate__Result_Output_pkg;  Use  Formulate_Result_Output_pkg; 
With  Float_io;  Use  Float__io; 

With  Integer__io;  Use  Integer_io; 

With  Text_io;  Use  Text_io; 

With  Integer_io;  Use  Integer_io; 


package  body  Panel__go  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event “generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application“dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file 
The  panel's  name  is  changed  (not  title) 

For  panel:  go 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

Cancel,  go_help,  go__label,  go_search, 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 
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-- I  22-Feb-96  TAE  Generated 

—  I  MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


—  ADDED  By  RUEY-WEN  HONG  960222 


Candidates  :  CandidatesTable; 

Profile_err  :  Prof ile_err_list  :=  (Others  =>  Nill) ; 
Q:  Qc;  C:  SWC; 

V :  Signature_map ; 
id,!  :  Natural  :=  1; 
cl  :  natural  : =  0; 
sn  :  natural; 

Num_vmaps  :  Natural; 

Stable  :  Sort_table_def ; 

U1,L1  :  Float; 

KeywordRank,  ProfileRank  :  Float; 

Sort Array  :  Asort_Array; 


Initialize_Panel 


- -  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE . Tae_Co . Co_Find  ( Inf o .Collection,  Mgo_v",  Inf o. View) ; 
TAE.Tae_Co.Co_Find  (Inf o .Collection,  "go_tn.  Info. Target) ; 

--  MERGE  NOTE:  Add  code  for  Init ialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Init ialize_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_.PTR  => 
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Text_IO .  Put_Line  (  "  Panel_go  .  Init  ialize__Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( "Panel„go . Initial ize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create_Panel 


Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

;  in  TAE . TaeJWpt . Wpt_Flags 

:  =  TAE  .  Tae_Wpt  ,WPT__P  REFERRED ; 

Re lat i  ve_Window 

:  in  X__Windows  .Window 

:  =  XJWindows .NullJWindow  )  is 

--I  NOTES:  (none) 

““  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create__Panel  ABOVE  this  line. 


begin  --  Create_Panel 

if  Info. Panel  Id  =  Tae.Null  Panel  Id  then 


TAE .  Tae_Wpt .  Wpt__NewPanel 
(  Display„Id 
Data_Vm 
View__Vm 

Re lat ive_Window 
User__Context 
Flags 
Panel_Id 

else 

Text_IO . Put_Line  ("Panel 
end  if; 

--  MERGE  NOTE:  Add  code  fo: 
--  MERGE  NOTE:  Add  code  fo: 


=>  Global . Default_Display_Id, 
=>  Inf o. Target , 

=>  Info. View, 

=  >  RelativeJWindow, 

=>  Info, 

->  Panel_State, 

=>  Info . Panelld  ) ; 

(go)  is  already  displayed."); 


Create_Panel  BELOW  this  line. 
Create_Panel  ABOVE  this  line. 


exception 

when  TAE  .UNINITIALIZED__PTR  =  > 
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Text_IO . Put_Line  ( " Panel_go . Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE  .  TAE__FAIL  => 

Text_IO .  Put__Line  (  "  Panel_go .  Create_Panel :  " 

Sc  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel; 


Connect_Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

:  =  TAE  .  Tae_Wpt . WPT_PREFERRED  ; 

Relat ive_Window 

;  in  X_Windows .Window 

:=  XJWindows .Null_Window  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect _Panel 

if  Info.Panel_Id  =  Tae  .Null_Panel__Id  then 
Great e_Pane 1 

(  Relative_Window  =>  Relative__Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE . Tae_Wpt .Wpt_Set Pane 1st ate  (Inf o . Panel_Idx  Panel_State) ; 
end  if; 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_STATE  =  > 

Text_IO . Put_Line  ( " Pane l_go . Connec t_Pane 1 :  " 

Sc  "Invalid  panel  state."); 
raise ; 

end  Connect_Panel ; 
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Destroy_Panel 


Subprogram  BODY 


procedure  DestroyJPanel  is 
-- |  NOTES:  (none) 

MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

—  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE . TaeJWpt . BAD__PANEL„ID  => 

Text__IO  .  Put_Line  ( "Panel_go . Destroy_Panel :  " 

&  "Info. Pane l_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null ; 

end  Destroy__Panel; 


—  begin  EVENT  HANDLERS 


Cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  Cancel_Event 

(  Info  :  in  TAE. Tae_Wpt .Even t__Context__Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 
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—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE . Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  Cancel. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  Cancel. 

begin  --  Cancel_Event 

TAE . Tae_Vm. Vln__Extract_Count  (Inf o  . ParmJPtr ,  Count)  ; 

Text_IO.Put  ("Panel  go,  parm  Cancel:  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Extract_SVAL  ( Inf  o .  ParmJPtr,  1,  Value  (1))  ; 

Text__IO .  Put_Line  (Value  ( 1 )  ) ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if; 

--  Cancel 
Destroy_Panel ; 

Panel_grnd„eq.Connect_Panel  (TAE . TaeJWpt .WPT_PREFERRED) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  Cancel. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  Cancel. 

end  Cancel_Event ; 


go_he lp_Event 


--  Subprogram  SPEC  &  BODY 


procedure  go_help_Event 

(  Info  :  in  TAE .  Tae__Wpt .  Event_Context_Ptr  )  is 

-- I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .  .TAE .  TaeJTaeconf .  STRINGSIZE)  ; 
Count  :  TAE . Tae int ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  go_help. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  go_help. 

begin  --  go_help_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 
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Text_IO.Put  ("Panel  go,  parm  go_help:  value  =  " ); 
if  Count  >  0  then 

TAE « Tae_Vm * Vm_Extrac  t__SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 
Text_IO  «  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO .  Put__Line  (  "none "  )  ; 
end  if ; 


--  MERGE  NOTE:  Add  code  BELOW  this 
--  MERGE  NOTE:  Add  code  ABOVE  this 


line  for  parm:  go_help. 
line  for  parm:  go__help. 


end  go_help_Event ; 


go_label_Event 


Subprogram  SPEC  &  BODY 


procedure  go_label_Event 

(  Info  :  in  TAE  «Tae_Wpt -Event _Cont ex t__Ptr  )  is 

--I  PURPOSE: 

-- |  EVENT  HANDLER .  Insert  application  specific  inf ormation . 

—  I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE . Tae_Taeconf • STRINGS IZE) ; 
Count  :  TAE • Taeint ; 


--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  go__label» 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  go_label, 

begin  --  go_label_Event 


TAE . Tae_Vm * Vm_Extrac t__Count  (Inf o . Parm_Ptr,  Count)  ; 
Text_IO,Put  ("Panel  go,  parm  go_label:  value  =  " ); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext rac t_SVAL  (Info.Parm^Ptr,  1,  Value(l)); 
Text_IO - Put_Line  (Value ( 1 ) ) ; 
else 

Text__IO  .  Put__Line  (  "none  "  )  ; 
end  if; 


--  MERGE  NOTE:  Add  code  BELOW  this 
--  MERGE  NOTE:  Add  code  ABOVE  this 


line  for  parm:  go_label. 
line  for  parm;  go__label. 


end  go_label_Event ; 
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go_search_Event 


--  Subprogram  SPEC  &  BODY 


procedure  go_search_Event 

(  Info  :  in  TAE . TaeJWpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- 1  EVENT  HANDLER.  Insert  application  specific  information. 

—  1 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE .Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  go_search. 
MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  go_search. 

begin  --  go_search_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text_IO.Put  ("Panel  go,  parm  go_search:  value  =  "); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr,  1,  Value(l)); 

Text_IO . Put^Line  (Value ( 1 ) ) ; 
else 

Text__IO .  Put_Line  ( " none  "  )  ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  go_search. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  go_search. 


—  ADDED  By  RUEY-WEN  HONG  960222 


put ("Enter  L1,U1:  "); 

get (LI);  get(Ul); 

Put ("Enter  Sn:  " ) ; 
get (sn)  ; 
get (id) ; 

LI  :=  0.1; 

LI : =  Global .kps_from; 
U1 : =  Global .kps_to; 
sn  :=  Global. mbn; 
id  :=  1; 


Get_Query(Q, Stable)  ; 
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--  Retrieve  components  from  Library  using  profile  from  test  cases 


Initialize_variables  (V,  Nmnjvmaps,  Stable)  ; 

InitComponentData (id, C, Stable , Q, KeywordRank, Prof ileRank)  ; 

--  Signature  Match 

put ("Working  on  :  " ) ;put (String (C. Ob j_filename) ) ;New_line; 
cl  : =  0 ; 

Signature__Match  (Q,  C,  V,  Stable ,  Num_vmaps,  cl  ,  sn,  LI,  XJ1 ,  KeywordRank,  Prof  ileRank)  ; 
put ("Count  number  of  unfilter  map");  put (cl) ;new_line; 

--  Semantic_Match 

S exnant i c__Ma t ch (Q,C,V, Stable, Num_vmap s )  ; 

--  Formulate  Result  and  output  to  user 
Calculate_total_rank (V, Q, C, i , Num_vmaps , Sort Array, 

KeywordRank, Prof ileRank) ; 

Sort_Display„Result (SortArray, 1) ; 

Display_invalid_operations (Q, Prof ile_err) ; 


end  go_search_Event; 


--  end  EVENT  HANDLERS 


Dispat ch_Item  --  Subprogram  BODY 


procedure  Dispatch_Item 

(  User__Context_Ptr  :  in  TAE .  Tae_Wpt  *  Event_Context_Ptr  )  is 
--I  NOTES:  (none) 
begin  --  Dispat ch^Item 
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if  TAE .  Tae_Misc  .  s_equal  ("Cancel",  User_Context_Ptr .  Parm_Name )  then 
Cancel_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.s_equal  (  "go_help"  ,  User_Context_Ptr . Pam_Name)  then 
go_help_Event  (User_Context_Ptr) ; 

elsif  TAE .Tae_Misc  .  s_equal  (  "go_label"  ,  User_Context_Ptr .  Parm_Name)  then 
go_label_Event  (User_Context_Ptr)  ; 

elsif  TAE . Tae_Misc  .  s_equal  ("go_search",  User_Context_Ptr . Pam_Name )  then 
go_search__Event  (User_Context__Ptr)  ; 

end  if; 

end  Dispat ch_Item; 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_go; 

--  ***  TAE  pius  code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 
--  ***  File:  pan_grnd_eq_s . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

__  ***  Date  .  Mar  5/  1996 

--  ***  Application:  CAPS  Software  Base 


************************************************************************** 

* 

*  Pane l_grnd_eq  --  Package  SPEC 

* 

************************************************************************** 


with  TAE; 
with  X_Windows; 

package  Panel_grnd_eq  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  grnd_eq 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 


-~l  REGENERATED: 

--I  The  following  Workbench  operations  will  cause  regeneration  of  this  file: 
-- I  The  panel’s  name  is  changed  (not  title) 

--I  For  panel:  grnd_eq 
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-I  CHANGE  LOG: 

-I  4 -Mar-9  6  TAE 


Generated 


Info  :  TAE . Tae_Wpt . Event_Context_Ptr ;  --  panel  information 


Initialize_Panel 


Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE. Tae_Co. Collect ion_Ptr  ); 


--  TAE  Collection  read  from 
--  resource  file 


--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 


EXCEPTIONS : 


-- I  TAE . UNINITIAL I ZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
-- I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
-- |  Collection_Read 


NOTES : 


(none) 


Create_Panel 


Subprogram  SPEC 


procedure  Create__Panel 
(  Panel_State 

:  in  TAE. Tae_Wp t .Wpt_F lags 

:=  TAE . TaeJWpt  «WPT_PREFERRED; 

Relative_Window 

:  in  X_Windows .Window 

:=  X„Windows  .Null_Window  )  ; 


--  Flags  sent  to  Wpt__NewPanel . 


--  Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE: 


--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
-- I  and  stores  the  panel  Id  in  Inf o . Panel_Id. 


EXCEPTIONS : 


-- I  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
-- I  TAE . TAE_FAIL  is  raised  if  the  panel  could  not  be  created 
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--!  NOTES:  (none) 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt • Wpt_Flags 

:  =  TAE  .  Tae__Wpt .  WPT_PREFERRED  ; 

Re lat i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null__Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--!  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
-- I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
-- I  Info .Panel_Id. 

""I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

--I  In  this  case,  Relative_Window  is  ignored. 


EXCEPTIONS : 

TAE .UNINITIALIZED_J?TR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


NOTES : 


(none) 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel; 


PURPOSE : 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
associated  panel  object  (not  the  target  and  view) . 


--I  EXCEPTIONS: 

-- I  TAE . Tae_Wpt . BAD__PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid  id. 


NOTES : 
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--  I  Info.Panel__Id  is  set  to  TAE . NULL__PANEL_ID ,  and  should  not  referenced 
-- |  in  any  Wpt  call  until  it  is  created  again. 


Dispat ch_Xtem 


Subprogram  SPEC 


procedure  Dispatch_Item 
(  User_Context_JPtr 

:  in  TAE . Tae_Wpt . E vent _C ont ext _Ptr 


--  Wpt  Event  Context  for  a  PARK 
)  ;  ~~  event . 


--|  PURPOSE; 

-- I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


EXCEPTIONS : 


-  -  I  Application-specific 
--  I 

-- I  NOTES:  (none) 


end  Panel_grnd_eq; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  pan_grnd_eq_b . a 

__  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


_  ************************************************************************** 

_  „  * 

*  Panel_grnd_eq  --  Package  BODY 

_  * 

_  ************************************************************************** 

with  TAE;  use  TAE; 
with  Text_IO ; 
with  Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_mbn_kps; 
with  Panel_grnd_eq; 
with  Panel_go; 

--  MERGE  NOTE:  Add  additional  ,,with"s  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 

package  body  Panel__grnd„eq  is 

--I  NOTES: 
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For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event" . 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTEs  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  grnd_eq 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

grnd_eq__cancel ,  grnd__eq_help ,  grnd_eq__keyin ,  grnd_eq_next , 
grnd  eg  ok 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

4 -Mar- 9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  CollectionJRead 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 
NOTES:  (none) 

—  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 
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begin  --  Initialize_Panel 

Info  :  =  new  TAE .  Tae_Wpt . Event__Cont ext ; 

Info .Collection  :=  Collect ion_Read; 

TAE . Tae_Co . Co_Find  ( Inf o . Collection,  "grnd„_eq__v" ,  Info. View) ; 
TAE . Tae_Co  . Co_Find  ( Inf o . Collection,  "grnd_eq_t 11 ,  Info. Target)  ; 

--  MERGE  NOTE;  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initial ize^Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( "Panel_grnd_eq . Initialize_Panel :  " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE .  Tae__Co .  NO_StXCH_MEMBER  => 

Text_IO . Put_Line  ( "Panel_grnd_eq . Initial ize_Panel :  " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize__Panel; 


Create_Panel 


Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .  Tae_Wpt .  Wpt_Flags 

:  =  TAE  .  Tae_Wpt  .WP TP REFERRED  ; 

Relative_Window 

:  in  XJWindows .Window 

s=  X_Windows .Null_Window  )  is 

-- I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE;  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  --  Great e_Panel 

if  Info .Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPanel 

(  Display__Id  =>  Global . Def ault_Display_Id, 

Data_Vm  =  >  Info. Target, 

View_Vm  =>  Info. View, 
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Re lat i ve_Window 
User_Context 
Flags 
Panel__Id 

else 

Text_IO . Put_Line  ( " Panel 
end  if; 


=>  Relative_Window, 

=>  Info, 

=>  Panel_State, 

=>  Inf  o  .  Panel__Id  ); 

(grnd_eq)  is  already  displayed."); 


--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 


exception 


when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_JLine  ( "Panel__grnd_eq.Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE .  TAE__FAIL  => 

Text_IO . Put_Line  ( " Panel_grnd_eq . Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 


end  Create_Panel; 


Connect  Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .TaeJWpt .Wpt_F lags 

:  =  TAE  .  Tae__Wpt .  WPT_PREFERRED  ; 

Relative_Window 

:  in  X_Windows  .Window 

:=  X_Windows .Null_Window  )  is 

-- I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Connect^Panel  ABOVE  this  line. 

begin  --  Connect_Panel 

if  Info.Panel__Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 
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TAE.Tae_Wpt .Wpt_SetPanelState  (Info.Panel_Id,  Panel„State) ; 
end  if; 

— *  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD^STATE  => 

Text_IO .  Put_Line  (  " Panel_grnd_eq . Connect__Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 


Destroy_Panel 


- -  Subprogram  BODY 


procedure  Destroy_Panel  is 
NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy^Panel  ABOVE  this  line. 

begin  Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO .  Put_Line  (  "  Pane l__grnd_eq .  Destroy_Panel ;  " 

&  "Info.Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt .  ERASE  JNULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

Trap  this  exception  and  do  nothing, 
null ; 

end  Destroy_Panel; 
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begin  EVENT  HANDLERS 


grnd_eq_c  anc  e  1_E  ven  t 


--  Subprogram  SPEC  &  BODY 


procedure  grnd_eq_c anc el_E vent 

(  Info  :  in  TAE  *  Tae_Wpt . Event__Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

-- I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1. .TAE. Tae_Taeconf. STRINGS IZE)  ; 

Count  :  TAE . Taeint ; 

MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  grnd  eg  cancel 
—  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  grnd_eq_cancel 

begin  --  grnd_eq_c anc el_E vent 

TAE . Tae__Vm. Vm_Extract _ Count  ( Inf o . Parm_Ptr,  Count); 

Text_IO.Put  ("Panel  grnd_eq,  parm  grnd__eq_cancel :  value  =  " ); 
if  Count  >  0  then 

TAE .  Tae_Vm. Vm_Extract_SVAL  ( Info .  Parm__Ptr,  1,  Value  ( 1 )  )  ; 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text__IO .  Put_Line  (  "none "  )  ; 
end  if; 

--  grnd„eq_cancel 
Destroy_Panel ; 

Panel_mbn_kps .Connect_Panel  (TAE . Tae_Wpt . WPT_PREFERRED) ; 

MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  grnd_eq_cancel . 

MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  grnd  eg  cancel. 

end  grnd_eq_c anc el_E vent ; 


grnd  eg  he lp_E vent 


—  Subprogram  SPEC  &  BODY 


procedure  grnd_eq_help_Event 

(  Info  :  in  TAE .  Tae_Wpt .  Event__Context_Ptr  )  is 
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--I  PURPOSE: 

—  I  EVENT  HANDLER*  Insert  application  specific  information* 

--I 

-- |  NOTES:  (none) 

Value  :  array  (1**1)  of  String  (1* . TAE * Tae_Taeconf * STRINGS IZE) ; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  grnd_eq_Jielp * 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  grnd_eq_help . 

begin  --  grnd_eq_help_Event 

TAE  *  Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text__IO  .  Put  ("Panel  grnd_eq,  parm  grnd„_eq__help :  value  =  H )  ; 
if  Count  >  0  then 

TAE  *Tae_Vm*Vm_Extract__SVAL  (Info *Parm_Ptr,  lt  Value(l)); 

Text__IO  *  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO  *  Put_Line  ( "none " ) ; 
end  if; 

--  qrnd  eg  he Ip 
Destroy_Panel ; 

Panel_ml>n_kps . Connect_Panel  (TAE.Tae_Wpt .WPT_PREFERRED) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  grnd_eq_help . 

—  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  grnd_eq_help . 

end  grnd_eq_help_Event; 


qrnd  eg  keyin__Event 


--  Subprogram  SPEC  &  BODY 


procedure  qrnd  eg  keyin  Event 

(  Info  :  in  TAE * Tae_Wpt  *  Event_Context_Ptr  )  is 

—  I  PURPOSE: 

--|  EVENT  HANDLER*  Insert  application  specific  information. 

—  I 

-- |  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . . TAE *Tae_Taeconf .STRINGS IZE) ; 

Count  :  TAE. Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  grnd_eq__keyin . 
—  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  grnd_eq_keyin . 

begin  grnd_eq_keyin_Event 
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TAE .  Tae__Vm.  Vln_Extract_Count  ( Inf  o  .  Parm_Ptr ,  Count); 

Text_IO . Put  ("Panel  grnd_eq,  parin  grnd_eq_keyin :  value  =  "); 
if  Count  >  0  then 

TAE.Tae_Vm.Vtn_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l) ) ; 
Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  qrnd  eg  kevin. 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  qrnd  eg  kevin. 

end  grnd_eq_keyin_Event ; 


qrnd  eg  next  Event 


--  Subprogram  SPEC  &  BODY 


procedure  qrnd  eg  next  Event 

(  Info  :  in  TAE .  Tae_Wpt .  Event_Context__Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

-“I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE. Tae_Taeconf .STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  grnd__eq_next . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  grnd__eq_next  * 

begin  --  grnd_eq_next_Event 

TAE . Tae__Vm. Vm_Extract_Count  (Inf o . Parm„Ptr ,  Count)  ; 

Text_IO.Put  ("Panel  grnd_eq/  parm  grnd_eq_next :  value  -  "); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1) ) ; 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text__IO . Put_Line  ("none"); 
end  if; 

- -  qrnd  eg  next 
Destroy_Panel ; 

Connect_Panel  ( TAE . Tae_Wpt . WPT_PREFERRED ) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  qrnd  eg  next . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  grnd_eq__next . 
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end  grnd_eq_next__JCvent ; 


grnd_eq_ok__Event 


Subprogram  SPEC  &  BODY 


procedure  grnd_eq__ok_Event 

(  Info  :  in  TAE .  Tae__Wpt  *  Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER,  Insert  application  specific  information, 

--! 

--!  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 TAE  .  Tae__Taeconf  ,  STRINGS  IZE)  ; 

Count  :  TAE,Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  grnd_eq_ok. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  grnd_eq_ok. 

begin  --  qrnd  eg  ok  Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info , Parm_Ptr ,  Count ) ; 

Text_IO,Put  ("Panel  grnd„eq,  parm  qrnd  eg  ok:  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Extract_SVAL  ( Info , Parm_Pt r ,  1 ,  Value ( 1 )  )  ; 

Text_IO , Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

- -  qrnd  eg  ok 
Destroy__Panel ; 

Panel_go  ,Connect__Panel  (TAE  .  Tae_JWpt  ,WPT_PREFERRED)  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  grnd_eq_ok, 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  grnd__eq__ok, 

end  grnd_eq_ok_Event ; 


—  end  EVENT  HANDLERS 
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Dispatch__Item 


Subprogram  BODY 


procedure  Dispatch„Item 

(  User_Context_Ptr  :  in  TAE .TaeJWpt . Event_Context_Ptr  )  is 
--I  NOTES:  (none) 
begin  --  Dispatch_Item 

if  TAE.Tae__Misc  .s_equal  ("gmd_eq_cancel,,/  User_Context_Ptr . Parm_Name) 

then 

grnd_eq_cancel__Event  (User_Context__Ptr)  ; 
elsif  TAE .  Tae_Misc  .  s__equal  ( "grnd_eq_help" ,  User_Context_Ptr .  Parm_Name) 

then 

grnd_eq_help_Event  (User_Context_Ptr)  ; 
elsif  TAE . Tae__Misc . s_equal  ("qrnd  eg  kevin” ,  User_Context_Ptr . Parm_Name) 

then 

grnd_eq_keyin_Event  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Misc . s_equal  ( " grnd  eg  next " ,  User_Context_JPtr . Parm_Name ) 

then 

grnd_eqL_next_Event  (User_Context_Ptr)  ; 
elsif  TAE  *  Tae__Misc  .  s_equal  ( "grnd_eq_ok" ,  User_Context_Ptr . Parm_Name)  then 
grnd_eq_ok_Event  (User_Context_Ptr )  ; 
end  if; 

end  Dispatch_Item; 


—  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_grnd_eq; 

__  ***  TAE  pius  code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 
--  ***  File:  pan_keyword__s .  a 

--  ***  Generated:  Mar  4  14:14:09  1996 

***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

__  ***  Application:  CAPS  Software  Base 


_  ************************************************************************** 

_  * 

*  Panel_keyword  --  Package  SPEC 

_  * 

_  ************************************************************************** 

with  TAE; 
with  X__Windows; 

package  Panel_keyword  is 
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PURPOSE ; 

This  package  encapsulates  the  TAE  Plus  panel:  keyword 
These  subprograms  enable  panel  initialization  creation,  destruction, 
and  event  dispatching *  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided* 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) * 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  keyword 

CHANGE  LOG: 

4 -Mar-9 6  TAE  Generated 


Info  :  TAE  *  Tae__Wpt . Event__Context_Ptr ;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE .  Tae_Co « Collection__Ptr  ); 


--  TAE  Collection  read  from 
--  resource  file 


PURPOSE  « 

This  procedure  initializes  the  Info. Target  and  Info .View  for  this  panel 
EXCEPTIONS : 

TAE  *UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
Collection_Read 

NOTES:  (none) 


C  r  e  a  t  e__P  ane  1 


Subprogram  SPEC 
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--  Flags  sent  to  Wpt_NewPanel . 


procedure  Create_Panel 
(  Panel__State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

:  =  TAE  .  Tae__Wpt .  WPT^PREFERRED  ; 

Re lat i ve_Window 

:  in  X_Windows  .Window 

:  =  X_Windows.Null_Window  ); 


--  Panel  origin  is  offset  from 
—  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE: 

This  procedure  creates  this  panel  object  in  the  specified  Panel__State 
and  stores  the  panel  Id  in  Inf o . Panel_Id . 

EXCEPTIONS : 

TAE .UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE .  TAE__FAIL  is  raised  if  the  panel  could  not  be  created 

NOTES:  (none) 


Connect__Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .  Tae_JWpt  .Wpt_Flags 

:  =  TAE .  Tae_Wpt .  WPT__PREFERRED  ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
-- I  in  the  specif iec  PanelState  and  stores  the  panel  Id  in 
-- I  Info.Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

--I  In  this  case,  Relative_Window  is  ignored. 


EXCEPTIONS : 

TAE  .UNINITIALIZED__PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE . TAE_FAIL  is  raised  from  Create„Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


NOTES : 


(none) 
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Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel; 


PURPOSE : 


-- |  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view) * 


EXCEPTIONS : 

TAE . Tae_Wpt , BAD_PANEL__ID  is  raised  if  Info . Panel_Id  is  an  invalid  id. 


NOTES : 


-- I  Info . Panel_Id  is  set  to  TAE  * NULL_PANEL_ID , 
--I  in  any  Wpt  call  until  it  is  created  again. 


and  should  not  referenced 


Dispatch_Itexn 


Subprogram  SPEC 


procedure  Di spat ch_I tern 
(  User_Context_Ptr 

;  in  TAE . TaeJWpt . Event_Cont ext_Ptr 


--  Wpt  Event  Context  for  a  PARM 
) ;  - -  event . 


—  I  PURPOSE: 

-- |  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


EXCEPTIONS : 


“-I  Application-specif ic 

—  I 

-- I  NOTES:  (none) 


end  Panel_keyword; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 
--  ***  File:  pan_keyword_b . a 

__  ***  Generated:  Feb  20  14:23:54  1996 

__  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


* 
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*  Panel_Jkeyword  --  Package  BODY 

_  * 

—  ************************************************************************** 
with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 

use  Text_IO, Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel__query; 
with  Panel_op_no; 

--  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 

—  MERGE  NOTE:  Add  additional  ,,with"s  ABOVE  this  line. 

package  body  Panel_keyword  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  keyword 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item’s  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items : 

keyword_cancel,  keyword_help,  keyword__list ,  keyword__ok, 
select ed_kword 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

20 -Feb- 9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 
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--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

--ADDED  by  RueyJWen  (Vincent)  Hong  951128 


kw_vec 
kwadd_vec 
kw_selected 
kw_list 
f  ile__name 


s_vector (1. .100)  :  =  (others=>  new  STRING(1. . 80) ) ; 
s_vector (1. .15)  :=  ( others- >  new  STRING ( 1 . . 80 ) ) ; 

String  (1..80)  : =  (others=>*  '); 

f ile_type; 

String(1..7)  :=  "kw__list"; 


number, 

index  :  integer  :=  1; 

Type_of_Wpt_Event  :  Tae .Wpt_E vent type ; 

UNKN OWN_WP T_E VENT  :  Exception; 


Initialize__Panel 


Subprogram  BODY 


procedure  Initialize__Panel 
(  Collect  ion__Read 

:  in  TAE .Tae_Co .Collect ion_Ptr  )  is 
-- |  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Xnitialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initial ize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Cont ext ; 

Info. Collect ion  : =  Collect ion_Read; 

TAE . Tae_Co .Co_Find  ( Inf o . Collection,  "keyword_v" ,  Info. View); 

TAE .  Tae__Co  .  Co__Find  ( Inf  o .  Collect  ion,  "  keywor  d_t "  ,  Inf o .Target ) ; 

--  MERGE  NOTE:  Add  code  for  Init ialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Init ialize_Panel  ABOVE  this  line. 

exception 

when  TAE .UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( "Panel„keyword . Initialize^Panel :  " 

&  "Collection_Read  not  initialized."); 
raise; 
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when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO.Put_Line  ( " Pane l_keyword. Initial ize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize__Panel; 


Create_Panel 


Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows  .Window 

:  =  X_Windows .Null_JWindow  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  --  Create_Panel 

if  Info  .Panel_Id  =  Tae  .Null_Panel__Id  then 
TAE . Tae_Wpt . Wpt_NewPanel 


Display_Id 

=> 

Global .  Def  ault^Display^Id, 

Data_Vm 

=> 

Info. Target, 

View_Vm 

=> 

Info .View, 

Re  lat i ve_Window 

=  > 

Re lat i ve_Window , 

User_Context 

=> 

Info, 

Flags 

=> 

Panel_State, 

Panel__Id 

=> 

Info . Panel_Id  ) ; 

else 

Text_IO . Put_Line  ("Panel  (keyword)  is  already  displayed."); 
end  if; 

--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 
MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_.PTR  => 

Text__IO.Put_Line  (  "Panel_keyword.Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 
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when  TAE.TAE_FAIL  => 

Text__IO .  Put_Line  (  " Panel_keyword .  Great e_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Great e_Panel; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .Tae„Wpt .Wpt_F lags 

;  =  TAE . Tae_Wpt . WPTP REFERRED ; 

Re lat ive_Window 

:  in  X_Windows .Window 

;=  X_Windows .Null_Window  )  is 

-- I  NOTES;  (none) 

--  MERGE  NOTE;  Add  declarations  for  Connect_Panel  BELOW  this  line. 
--  MERGE  NOTE;  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

--ADDED 

Dummy ; Boolean ; 

L  ; integer :=1; 

begin  --  Connect_Panel 

if  Info . Panel_Id  =  Tae.Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE  .TaeJWpt  .Wpt_S  et  Panels  tat  e  (Info  .  Paneled,  Panel_State)  ; 
end  if; 

--  MERGE  NOTE;  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE;  Add  code  for  Connect_Panel  ABOVE  this  line. 


--  ADDED 


Global . strlen ( library, L) ; 

Global . list_components (kw_list , file_name,kw_vec, number) ; 
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TAE .  Tae__Wpt  *Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State)  ; 

TAE . Tae_Wpt - Wpt„SetStringConstraint s ( Info . Panel_Id, ”keyword__list " , taeint (numb 
er)  ,  kw__vec)  ; 

Dummy :  =TAE .  TaeJWpt .  Wpt__Pending ; 
system_call ( "rm  kw_list"); 


exception 

when  TAE . TaeJWpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_keyword . Connect„Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 


Destroy__Panel 


- -  Subprogram  BODY 


procedure  Destroy_Panel  is 
--|  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase (Info .Panel_Id) ; 

--  MERGE  NOTE:  Add  code  for  DestroyPanel  BELOW  this  line. 

MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text__IO . Put_Line  (  "Panel_keyword.Destroy_Panel ;  " 

&  "  Info  .Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE .  Tae_Wpt .  ERAS E_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

—  Trap  this  exception  and  do  nothing. 

null; 
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end  Destroy_Panel; 


f-  +  +  +  +  H 


--  begin  EVENT  HANDLERS 


keywor  d__c  anc  e  1_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  keyword_c anc el_E vent 

(  Info  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 

-- j  PURPOSE : 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

“-I  NOTES  :  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE .Tae_Taeconf .STRINGS IZE) ; 

Count  :  TAEoTaeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  keyword_cancel 
—  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  keywor d_c anc e 1 

begin  --  keyword_c anc el_E vent 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count) ; 

Text_IO.Put  ("Panel  keyword,  parm  keyword_cancel :  value  =  " ) ; 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext ract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1) ) ; 

Text_IO .  Put__Line  (Value  ( 1 )  )  ; 
else 

Text_IO o  Put_Line  ( " none " ) ; 
end  if ; 

--  keyword_cancel 
Destroy_Panel ; 

Panel_query  .Connect_Panel  (TAE .  Tae__Wpt .  WPT_PREFERRED)  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  keyword„cancel . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  keyword_cancel „ 

end  keyword_c  anc  e 1_E vent ; 


keyword_he lp_E vent 


Subprogram  SPEC  &  BODY 
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procedure  keyword_help_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  keyword_help . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  keyword_help . 

begin  --  keyword_help_Event 

TAE . Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count) ; 

Text_IO.Put  ("Panel  keyword,  parm  keyword__help :  value  =  " )  ; 
if  Count  >  0  then 

TAE . Tae_Vm . Vtoi_Ext  ract_SVAL  (Info.Parm__Ptr,  1,  Value(l)); 

Text_IO . Put_Line  (Value (1) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  keyword__help 
Destroy_Panel ; 

Pane l^query . Connec  t_Pane 1  ( TAE . Tae_Wpt . WPT_PREFERRED) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  keyword_he lp . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  keyword_help . 

end  keyword_help_Event; 


keyword_l i s t_Event 


--  Subprogram  SPEC  &  BODY 


procedure  keyword_list_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- |  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE . Tae__Taeconf  .  STRINGSIZE)  ; 
Count  :  TAE . Taeint ; 
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--  MERGE  NOTEs  Add  declarations  BELOW  this  line  for  parm;  keyword_list . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  keyword_list . 

begin  --  keyword_list_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text_IO.Put  ("Panel  keyword,  parm  keyword_list :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vtn.  Vln__Extract_SVAL  (Inf o . Parm^Ptr,  1,  Value(l)); 

Text__IO .  Put__Line  (Value  ( 1 )  )  ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  keyword__list . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  keyword_list . 


- -ADDED 


kw_selected (1 . .80) : =Value ( 1 ) (1. .80) ; 
kwadd_vec (index) .all : =kw_s elec ted; 


TAE . Tae_Wpt .Wpt_SetStringConstraints ( Info . Panel_Id,  "selected_kword" , taeint (in 
dex)  ,kwadd__vec)  ; 

index  :=  index  +  1; 

end  keyword_list_Event ; 


keyword_ok_Event 


Subprogram  SPEC  &  BODY 


procedure  keyword_ok_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . . TAE . Tae_Taeconf . STRINGS I ZE ) ; 

Count  ;  TAE .Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  keyword_ok. 
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--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parin:  keyword__ok. 
begin  --  keyword_ok_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Inf o . Parm_Ptr,  Count) ; 

Text_IO . Put  ("Panel  keyword,  parm  keyword_ok:  value  =  "); 
if  Count  >  0  then 

TAE .  Tae__Vfri .  Vm_Ext ract_SVAL  ( Inf  o .  Parm_Ptr ,  1,  Value  (1)  )  ; 

Text_IO  *  Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if; 

--  keyword_ok 
Destroy_Panel ; 

Panel_op_no .Connect_Panel  (TAE . Tae_Wpt . WPT__PREFERRED ) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  keyword_ok. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  keyword__ok. 

end  keyword_ok_Event ; 


selected_kword_Event 


--  Subprogram  SPEC  &  BODY 


procedure  selected_kword_Event 

(  Info  :  in  TAE  *  Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--1  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  selected_kword . 
MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  selected__kword . 

begin  --  selected__kword__Event 

TAE  .  Tae__Vm. Vm__Extract_Count  ( Info .  Parm_Ptr ,  Count )  ; 

Text_IO.Put  ("Panel  keyword,  parm  selected__kword:  value  =  " )  ; 
if  Count  >  0  then 

TAE . Tae_Vm. Vm_Extract_SVAL  ( Inf o . Parm__Ptr ,  1,  Value(l)); 

Text__IO .  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if ; 
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--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  select ed_kword . 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  select ed_kword . 

end  selected_kword_Event; 


—  end  EVENT  HANDLERS 


Dispat ch„Xtem 


--  Subprogram  BODY 


procedure  Dispatch_Xtem 

(  User_Context_Ptr  :  in  TAE.TaeJWpt .Event_Context_Ptr  )  is 
-*-1  NOTES:  (none) 
begin  --  Dispat ch_Item 

if  TAE . Tae_Misc . s_equal  ( "keyword_cancel '■ ,  User_Context_Ptr . Parm_Name ) 

then 

keyword_cancel_Event  (User_Context„Ptr ) ; 
els  if  TAE .  Tae__Misc „  s_equal  (  " keyword__he Ip  "  ,  User_Context_Ptr „  Parm_Name) 

then 

keyword__help„Event  (User_Context_Ptr)  ; 
elsif  TAE.Tae_Misc .s_equal  ( "keyword_list " ,  User_Context_Ptr . Pann_Name) 

then 

keyword_list_Event  (User__Context__Ptr)  ; 
elsif  TAE  *  Tae_Misc „ s_equal  ( "keyword_okn  ,  User_Context__Ptr . Parm_Name )  then 
keyword__ok_Event  (User_Context__Ptr)  ; 
elsif  TAE.Tae_Misc.s_equal  (" select ed_kword" , 

User_Context_Ptr . Parm_Name )  then 

select ed__kword_Event  (User_Context_Ptr )  ; 
end  if; 

end  Dispatch_Item; 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_keyword; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE . ] 
--  ***  File:  pan_maintain_s . a 
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--  ***  Generated;  Mar  4  14:14:09  1996 
--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


************************************************************************** 

* 

*  Panel_maintain  --  Package  SPEC 

* 

************************************************************************** 


with  TAE; 
with  XJWindows; 

package  Panel_maintain  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  maintain 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel__Id  (available  after  creation)  . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  maintain 


CHANGE  LOG: 

4 -Mar- 9 6  TAE  Generated 


Info  :  TAE .  Tae_Wpt .  Event_Context_Ptr ;  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE. Tae_Co. Collect ion_Ptr  );  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 

—  I 

--I  EXCEPTIONS: 
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--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
--]  TAE.Tae_Co.NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
-- |  Collection_Read 

— |  NOTES:  (none) 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

:=  TAE . Tae_Wpt . WPT_PREFERRED; 

Relative_Window 

:  in  XJWindows  . Window 

:  =  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE  s 


-- |  This  procedure  creates  this  panel  object  in  the  specified  Panel__State 
--I  and  stores  the  panel  Id  in  Inf o . Panel_Id . 


--[  EXCEPTIONS: 

--i  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
-- |  TAE . TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


NOTES  s 


(none) 


Connect__Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Pane!_State 

s  in  TAE . TaeJWpt . Wpt_Flags 

:  =  TAE  .  Tae__Wpt .  WPT__PREFERRED  ; 

Relative_Window 

:  in  XJWindows. Window 

:=  XJWindows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  NullJWindow 
--  uses  the  root  window. 


-- j  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
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in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
Info . Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel__State . 
In  this  case,  RelativeJWindow  is  ignored. 


EXCEPTIONS: 

TAE .UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE .  TAE_FAIL  is  raised  from  Create__Panel  if  the  panel  could  not  be 
created 

TAE .  Tae_Wpt  .BAD_S TATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


NOTES : 


(none) 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


-- |  EXCEPTIONS: 

--I  TAE . Tae_Wpt . BAD_PANEL__ID  is  raised  if  Inf o . Panel_Id  is  an  invalid  id. 


NOTES : 


--I  Info . Panel_Id  is  set  to  TAE . NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispat ch_I tern 


Subprogram  SPEC 


procedure  Dispatch_Item 

(  User__Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE  .  Tae__Wpt .  Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--|  This  procedure  calls  the  Event  Handler  specified  by  User__Context__Ptr 

--  I 

—  I  EXCEPTIONS: 
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--I  Application-specific 

—  I 

-- I  NOTES:  (none) 
end  Panel_inaintain; 

__  ***  tAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE . ] 

__  ***  Fiie;  pan_maintain_b.a 

--  ***  Generated:  Mar  4  14:14:09  1996 

__  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


_  _  A*******************'****************************************************** 

_  * 

*  Panel_maintain  Package  BODY 

_  * 

************************************************************************** 

with  TAE;  use  TAE; 
with  Text_IO ; 
with  Global; 

--  One  "with"  statement  for  each  connected  panel. 

with  Panel_backup_l; 

with  Panel_sb_main; 

with  Panel_create_l ; 

with  Panel„delete_l; 

with  Panel_select_l; 

--  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 

—  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 


package  body  Panel_maintain  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTEs  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 


REGENERATED : 


The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  maintain 
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The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 
An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

maint_backup,  maint^cancel,  maint__create,  maint_delete, 
maint_help,  maint__select 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line* 

4 -Mar -9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection__Read 

:  in  TAE . Tae_Co .Collect ion„Ptr  )  is 
““I  NOTES:  (none) 

MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  : =  new  TAE . Tae_Wpt . Event_Cont ext ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co„Find  ( Inf o .Collection,  "maintainjv" ,  Info. View) ; 

TAE . Tae_Co . Co_Find  ( Inf o . Collect ion,  "maintain_t " ,  Inf o . Target ) ; 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text__IO.Put_Line  ( "Panel_maintain. Initialize_Panel :  " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  =  > 
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Text_IO.Put_Line  ( "Panel__maintain . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection . " ) ; 
raise; 

end  Xnitialize_Panel; 


Creat e_Panel 


Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAB . Tae_Wpt . Wpt_Flags 

: =  TAE . TaeJWpt . WPT_PREFERRED ; 

Relat ive_Window 

:  in  X_Windows  .Window 

:=  X_Windows .Null_Window  )  is 

— |  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 


begin  --  Create_Panel 


if  Info.Panel_Id  =  Tae .Null 
TAE .  Tae_Wpt .  Wpt_NewPanel 
(  Display_Id 
Data_Vm 
View_Vm 

Re lat i ve_Window 
User_Context 
Flags 
Panel__Id 


Panel_Id  then 

=>  Global . Def ault_Display_Id, 
=>  Info .Target , 

=>  Info. View, 

=>  Relative_Window, 

=>  Info, 

=>  Pane Instate, 

=>  Inf o .Panel_Id  ) ; 


else 

Text_XO „ Put__Line  ("Panel  (maintain)  is  already  displayed 
end  if; 


it 


--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  code  for  Create__Panel  ABOVE  this  line. 


exception 

when  TAE . UNINITIALIZED_PTR  => 

Text_IO .  Put_Line  (  " Panel_maintain . Creat e_Panel :  " 

Sc  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE . TAE_FAXL  => 
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Text__IO .  Put_Line  (  "  Panelmaintain .  Create_Panel : 

Sc  "Panel  could  not  be  created,"); 
raise; 

end  Create_Panel; 


Connect  Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE  *  Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect„Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect_Panel 

if  Inf o . Panel_Id  =  Tae .Null_Panel_Id  then 
Cr eat e_Pane 1 

(  RelativeJWindow  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE . Tae_Wpt . Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) ; 
end  if ; 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE. Tae_Wpt.BAD_S TATE  => 

Text_IO .  Put_Line  (  "  Panel_maintain .  Connect_Panel :  " 

Sc  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 
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Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
-- I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy__Panel  BELOW  this  line. 

----  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 

MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line, 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line, 

exception 

when  TAE . Tae_Wpt . BAD„PANEL_ID  => 

Text__IO .  Put_Line  ( " Panel_maintain .  Destroy_Panel :  " 

&  "Inf o . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL__PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

--  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy_Panel; 


-.-  +  4.  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  4.4.  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

—  begin  EVENT  HANDLERS 


ma i n t _b a c kup_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  maint_backup_Event 

(  Info  :  in  TAE .  Tae_Wpt .  Event_Context__Ptr  )  is 

--|  PURPOSE: 

- - 1  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . ,TAE.Tae_Ta©conf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 
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--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  maint Jbackup . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  maint_backup * 

begin  --  maint_backup_Event 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr,  Count) ; 

Text_IO.Put  ("Panel  maintain,  parm  maint__backup :  value  =  " )  ; 
if  Count  >  0  then 

TAE.TaeJVm.Vin_Extract_SVAL  ( Inf o . Parm_Ptr,  1,  Value(l)); 

Text_IO  *  Put__Line  (Value  ( 1 )  )  ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  maint_backup 
Destroy_Panel ; 

Panel_backup_l .Connect_Panel  ( TAE . Tae_Wpt .WPT_P  REFERRED) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  maint_backup . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  maint__backup . 

end  maint_backup_Event ; 


ma  int  _c  anc  e  1__E  vent 


--  Subprogram  SPEC  &  BODY 


procedure  maint_cancel_Event 

(  Info  :  in  TAE  .Tae__Wpt  * Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE. Tae_Taeconf .STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  maint_cancel . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  maint_cancel . 

begin  --  ma int_c anc el_E vent 

TAE . Tae_Vm. Vm_Extract_Count  (Info . Parm_Ptr ,  Count) ; 

Text_IO . Put  ("Panel  maintain,  parm  maint_cancel :  value  =  " ) ; 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text_IO .  Put_Line  (Value  ( 1 )  )  ; 
else 
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Text_IO .  Put_Line  ( "none  "  )  ; 
end  if; 

--  maint_cancel 
Destroy_Panel ; 

Panel_sb_main.Connect_Panel  ( TAE  *  Tae_Wpt .WPT_P  REFERRED) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  maint_cancel . 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  maint_cancel . 

end  maint__cancel_Event ; 


xnaint_create_Event 


Subprogram  SPEC  &  BODY 


procedure  maint_create_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

— [  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE .Tae_Taeconf . STRINGS I ZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  maint_create . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  maint_create. 

begin  --  maint__create__Event 

TAE . Tae_Vm. Vm_Extract__Count  (Inf o . Parm_Ptr ,  Count)  ; 

Text_IO . Put  ("Panel  maintain,  parm  maint_c reate s  value  =  " ) ; 
if  Count  >  0  then 

TAE .  Tae__Vm .  Vm_Ext r ac t_SVAL  ( Inf o . Parm_Ptr ,  1,  Value  (1)  )  ; 

Text_IO .  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO .  Put_Line  ("none"); 
end  if; 

--  maint_create 
Destroy__Panel ; 

Panel_create_l  .Connect_Panel  (TAE .  Tae_Wpt  .WPT_PREFERRED)  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  maint_create . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  maint__create . 

end  ma  int_creat e_Event ; 
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ma  int  __de  1  e  t  e_E  vent 


--  Subprogram  SPEC  &  BODY 


procedure  maint_delete_Event 

(  Info  :  in  TAE . Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  maint_delete . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  maint_delete . 

begin  --  maint_de let e_E vent 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text_IO . Put  ("Panel  maintain,  parm  maint_delete :  value  =  " ) ; 
if  Count  >  0  then 

TAE .  Tae__Vm.  Vm_Extract_SVAL  ( Inf o . Parm_Ptr,  1,  Value(l)); 

Text„IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO .  Put__Line  (  " none  "  )  ; 
end  if; 

--  maint_delete 
Destroy_Panel ; 

Panel_delete_l .Connect_Panel  ( TAE . Tae_Wpt . WPT_PREFERRED ) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  maint_delete . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  maint_delete . 

end  ma int _de 1 e t e_E vent ; 


ma int _he lp_E vent 


Subprogram  SPEC  &  BODY 


procedure  maint_help_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

-- j  PURPOSE: 
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--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

---  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  maint_help. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  maint__help. 

begin  --  maint_help_Event 

TAE .  Tae_Vm.  Vin_Extract__CouHt  ( Inf o . Parm_Ptr,  Count)  ; 

Text_IO.Put  ("Panel  maintain,  parm  maint_help:  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vfri_Ext  ract_SVAL  (Inf o .Parm_Ptr,  1,  Value  (1)  )  ; 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  maint_help. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  maintjxelp. 

end  maint_help_Event ; 


maint__select_Event 


Subprogram  SPEC  &  BODY 


procedure  xnaint__select_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--1  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .  .TAE .  Tae__Taeconf  .  STRINGS  IZE)  ; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  maint^select . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  maint_select . 

begin  --  maint_select_Event 

TAE . Tae_Vm . Vm_Ext rac t_Count  ( Inf o . Parm_Ptr,  Count) ; 

Text_IO.Put  ("Panel  maintain,  parm  maint__select :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext rac t_S VAL  (Inf o . Parm_Ptr,  1,  Value (1) ) ; 
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Text__IO .  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO  *  Put__Line  (  "none  "  )  ; 
end  if; 

maint_select 
Destroy_Panel ; 

Panel_select_l .Connect_Panel  ( TAE . Tae_Wpt . WPT_PREFERRED ) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  maint_select . 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  maint_select * 

end  maint_select_Event ; 


--  end  EVENT  HANDLERS 


DispatchJTtem 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE . TaeJWpt . Event_Context_Ptr  )  is 
--I  NOTES:  (none) 
begin  --  Dispat ch_Item 

if  TAE . Tae_Misc . s_equal  ( "maint_backup" ,  User_Context_Ptr . Parm_Name)  then 
maint_backup_Event  (User_Context_Ptr) ; 
elsif  TAE  *Tae_Misc  .  s_equal  ( "maint^ancel" ,  User_Context__Ptr .  Parm__Name) 

then 

maint_cancel_Event  (User_Context__Ptr)  ; 
elsif  TAE . Tae_Misc . s_egual  ( "maint__create" ,  User_Context_Ptr . Parm_Name) 

then 

maint_create_Event  (User_Context_Ptr) ; 
elsif  TAE .Tae_Misc . s_equal  ( "maint_delete" ,  User_Context_Ptr . Parm_Name) 

then 

maint_delete__Event  (User_Context_Ptr )  ; 
elsif  TAE .  Tae_Misc .  s_equal  ( "maint_help"  ,  User_Context__JPtr .  Parm_Name)  then 
maint_help_Event  (User__Context_Ptr)  ; 
elsif  TAE .Tae_Misc . s_equal  ( "maint_select " ,  User_Context_Ptr . Parm_Name) 

then 

maint__select_Event  (User_Context_Ptr)  ; 
end  if; 
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end  Dispatch_Item; 


--  MERGE  NOTE :  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE :  Add  additional  code  ABOVE  this  line. 

end  Panel_maintain; 

--  ***  TAE  Plus  Code  Generator  version  V5 . 3  [Merge  Token:  DO  NOT  DELETE.] 
--  ***  File:  pan_mbn_kps_s .a 

--  ***  Generated:  Mar  4  14:14:09  1996 

***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


* 

*  Panel_mbn_kps  --  Package  SPEC 

* 


with  TAE; 
with  XJWindows; 

package  Pane l_ir£bn_kp s  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  mbn_kps 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) • 

INITIALIZATION  EXCEPTIONS :  (none ) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  mbn_kp s 


CHANGE  LOG: 

4 -Mar- 9 6  TAE 


Generated 


Info  :  TAE . Tae_Wpt • Event_Context_Ptr ;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 
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procedure  Initialize_Panel 

(  Collect ion_Read  --  TAE  Collection  read  from 

;  in  TAE . Tae_Co . Collection_Ptr  );  --  resource  file 


PURPOSE : 

This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 
EXCEPTIONS : 

TAE .UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
TAE . Tae__Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
Collection_Read 

NOTES:  (none) 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows  .Window 

:=  XJWindows  .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
this  X  Window,  NullJWindow 
--  uses  the  root  window. 


PURPOSE : 


-- I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
--I  and  stores  the  panel  Id  in  Inf o . Panel_Id . 


EXCEPTIONS : 

TAE . UNINITIAL I ZED_PTR  is  raised  if 
TAE . TAE__FAIL  is  raised  if  the  panel 


the  panel  is  not  initialized 
could  not  be  created 


NOTES:  (none) 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
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(  Panel_State 

:  in  TAE .  Tae_Wpt .  Wpt__Flags 

: =  TAE . Tae_Wp t . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows . Window 

:  =  X__Windows  .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE : 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info . Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 

TAE . UNINITIAL I ZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE .  TAE__FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_S TATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES:  (none) 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel; 


-- [  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

~~|  TAE . Tae_Wpt . BAD_PANEL__ID  is  raised  if  Inf o .  Panel__Id  is  an  invalid  id. 


NOTES : 


--I  Info . Panel^Id  is  set  to  TAE . NULL_PANEL_ID, 
-- I  in  any  Wpt  call  until  it  is  created  again. 


and  should  not  referenced 


Dispatch_Item 


Subprogram  SPEC 
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procedure  Dispatch_Item 

(  User„Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt . Event_Context_Ptr  );  --  event. 


PURPOSE : 

This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 

EXCEPTIONS : 

Applicat ion- specific 

NOTES:  (none) 


end  Panel_mbn_kps; 

***  TAE  Plus  Code  Generator  version  V5 . 3  [Merge  Token:  DO  NOT  DELETE.] 
--  ***  File:  pan_mbn_kps_b . a 

--  ***  Generated:  Feb  23  13:21:26  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

***  Application:  CAPS  Software  Base 


—  ************************************************************************** 
_  * 

*  Pane l_mbn_kps  --  Package  BODY 

_  * 

—  ************************************************************************** 
with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_sdetail; 
with  Panel__grnd_eq; 

--  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 


package  body  Panel_jmbn_kps  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
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will  contain  your  modifications. 


-I  REGENERATED : 

-|  The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 
-I  The  panel's  name  is  changed  (not  title) 

- I  For  panel:  mbn_kps 


The 


following  WorkBench  operations  will  also  cause  regeneration: 


An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

kps__keyin_f  rom,  kps_keyin_to ,  mbn_key  in ,  mbn_kps_cancel , 

mbn_Jkps_help ,  mbn_kps__ok 


CHANGE  LOG: 
MERGE  NOTE:  Add 
2 3 -Feb- 9 6  TAE 

MERGE  NOTE:  Add 


Change  Log  entries 
Generated 

Change  Log  entries 


BELOW  this  line. 
ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collect ion_Read 

:  in  TAE . Tae_Co . Collection_Ptr  )  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  :=  new  TAE.TaeJWpt .Event_Context ; 

Info .Collection  :=  Collect ion_Read; 

TAE . Tae_Co . Co_Find  ( Inf o . Collection,  "mbn_kps_v".  Info. View); 

TAE . Tae_Co . Co_Find  ( Inf o .Collection,  "mbn_kps„t".  Info. Target) ; 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 
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when  TAE.UNINITIALIZED_PTR  => 

Text_IO  *  Put_Line  ( " Panel_mbn_kps . Init ialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise ; 

When  TAE  .  Tae_Co  .  NO_SUCH__MEMBER  => 

Text_IO . Put_Line  ( "Panel_mbn_kps . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_F lags 

:  =  TAE  .  Tae__Wpt .  WPT_PREFERRED  ; 

Relative_Window 

:  in  X_Windows  .Window 

:=  XJWindows .NullJWindow  )  is 

--I  NOTES:  (none) 


--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this 
--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this 


line . 
line . 


begin  --  Create_Panel 


if  Info.Panel_Id  =  Tae.Null 
TAE .  Tae_JWpt .  Wpt_NewPanel 
(  Displayed 
Data_Vm 
View_Vm 

Relative_Window 

User_Context 

Flags 

Panel_Id 

else 

Text_IO . Put_Line  ( "Panel 
end  if; 


_Panel_Id  then 

=>  Global .Default_Display_Id, 
=>  Info. Target, 

=>  Info. View, 

=  >  RelativeJWindow, 

=>  Info, 

=>  Panel_State, 

=>  Info . Panel_Id  ); 

(mbn_kps)  is  already  displayed 


>; 


--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 
MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 


exception 
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when  TAE.UNINITIALIZED_PTR  => 

Text_IO .  Put__Line  (  " Panel_mbn_kps  .  Creat e_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE . TAE_FAIL  => 

Text_IO . Put_Line  ( "Pane l_mbn_kps .Creat e_Panel :  " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create__Panel; 


Connect_Panel 


-  -  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_P REFERRED ; 

Relat ive JWindow 

:  in  X_Windows .Window 

2=  X_Windows .NullJWindow  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 

---  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect__Panel 

if  Info . Panel_Id  =  Tae  .Null_Panel__Id  then 
Creat e_Panel 

(  Relat ive JWindow  =>  Relat ive_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE  .TaeJWpt  .Wpt_SetPanelState  ( Inf  o .  Panel_Id/  Panel__State)  ; 
end  if; 

MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO .  Put_Line  (  "Panel_inbn_kps  .  Connect_Panel :  " 

&  "Invalid  panel  state."); 
raise; 
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end  Connect_Panel; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  —  Destroy_Panel 

TAE . Tae_Wpt .Wpt_PanelErase (Inf o .Pane l_Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy__Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text__IO .  Put_Line  (  "Panel_mbn_kps  .  Destroy_Panel :  " 

&  "Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE„NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null ; 

end  Destroy_Panel; 


--  begin  EVENT  HANDLERS 


kps_keyin_from_Event 


--  Subprogram  SPEC  &  BODY 


procedure  kps_keyin_f rom_Event 

(  Info  :  in  TAE . TaeWpt . Event_Context_Ptr  )  is 
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--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  TAE . Taef loat ; 

Count  :  TAE.Taeint; 

---  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  kps_keyin_from. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  kps_keyin_f rom. 

begin  --  kps_keyin_from_Event 

TAE .  Tae_Vin .  Vm_Ex tract __Count  ( Inf o . Parm_Ptr ,  Count); 

Text_IO.Put  ("Panel  mbn_kps,  parm  kps_keyin__f  rom:  value  =  " )  ; 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext ract_RVAL  (Inf o . Parm_Ptr,  1,  Value (1) ) ; 

Global .Taef loat_IO . Put  (Value(l));  Text_IO .New_Line; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  kps_keyin_f rom. 


--  ADDED  by  RUE Y -WEN  (VINCENT)  HONG  960223 


Global .kps_f rom  :  =  float (Value (1) ) ; 


--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  kps_keyin__f  rom. 
end  kps„keyin__from_Event; 


kp  s_key in_t  o_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  kps_keyin_to_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

- —  I  NOTES:  (none) 

Value  :  array  (1..1)  of  TAE .Taef loat ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  kps_keyin__to . 
---  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  kps_keyin_to . 
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begin  --  kps„keyin_to_Event 

TAE.Tae_Vm.Vm_Extract_Count  (Info . Parm_Ptr ,  Count) ; 

Text_IO.Put  ("Panel  mbn_kps,  parm  kps_keyin__to :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Extrac t_RVAL  ( Inf o . Parm_Ptr,  1,  Value(l)); 
Global .Taef loat_IO. Put  (Value(l)) ;  Text_IO . New_Line ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  kps_keyin_to . 


—  ADDED  by  RUEY-WEN  (VINCENT)  HONG  960223 


Global. kps_to  :=  float (Value (1) ) ; 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  kps_Jkeyin__to . 
end  kps_keyin_to_Event ; 


mbn_keyin_Event 


--  Subprogram  SPEC  &  BODY 


procedure  mbn_keyin_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  TAE.Taeint; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  mbn_keyin. 
—  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  mbn_keyin. 

begin  --  mbn_keyin_Event 

TAE . Tae_Vm. Vm_Extract_Count  (Inf o . Parm_Ptr,  Count) ; 

Text_IO.Put  ("Panel  mbn_kps/  parm  mbn_keyin:  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm.Vm_Extract_IVAL  (Inf o .Parm_Ptr7  1,  Value (1) ) ; 

Text_IO . Put_Line  (TAE . Taeint ' image (Value ( 1 ) ) ) ; 
else 

Text_IO .  Put__Line  ( " none  "  )  ; 
end  if; 
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--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  mbn_keyin. 


—  ADDED  by  RUEY-WEN  (VINCENT)  HONG  960223 


Global. mbn  :=  natural (Value ( 1) ) ; 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  mbn_keyin. 
end  mbn__keyin_Event ; 


inbn__kp  s_c  anc  e  1_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  mbn_kps„c  anc  el__E  vent 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

-- |  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1. .TAE. Tae_Taeconf. STRINGS IZE) ; 

Count  :  TAEeTaeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  mbn__kps_cancel*. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  mbn_kps_cancel . 

begin  --  mbn__kps_c anc el_E vent 

TAE .  Tae_Vm .  Vm_Ex tract _Count  ( Inf  o .  Parxn_Ptr ,  Count )  ; 

Text_IO.Put  ("Panel  mbn_kps,  parm  mbn_kps_cancel :  value  =  " ) ; 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm__Ptr ,  1,  Value  (1)  )  ; 
Text_IO.Put_Line  (Value (1) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

---  mbn_kps_cancel 
Destroy_Panel ; 

Panel_sdetail  .Connect_Panel  ( TAE  .  Tae__Wpt . WPT_PREFERRED )  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  mbn_kps__cancel . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  mbn_kps_cancel . 

end  mbn_kp  s__c  anc  e  1_E vent ; 
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mbn_kp  s_he lp_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  mbn__kps_help_Event 

{  Info  :  in  TAE .TaeJWpt .Event _Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE .Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE . Ta e in t ; 

MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  mbn_kps_help . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  mbn_kps__help . 

begin  --  mbn_kps_help_Event 

TAE .  Tae__Vtoi. Vin_Extract_Count  ( Info .  Parm_Ptr ,  Count )  ; 

Text_IO.Put  ("Panel  mbn_kps/  parm  mbn_kps_help :  value  =  "); 
if  Count  >  0  then 

TAE .  Tae__Vm .  Vm_Extract_SVAL  ( Inf  o .  Parm__Ptr ,  1,  Value  (1)  )  ; 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  mbn_kps_help 
Destroy_Panel ; 

Panel_sdetail .Connect_Panel  (TAE .Tae_Wpt .WPT_P REFERRED) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  mbn__kps_help . 

—  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  mbn__kps„help . 

end  mbn_kps__help_Event ; 


mbn_kp  s_ok_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  mbn_kps__ok_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

—  I  EVENT  HANDLER.  Insert  application  specific  information. 
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—  I  NOTES:  (none) 


Value  :  array  (1..1)  of  String  (1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 

Count  :  TAE . Tae int ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  mbn_kps_ok. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  mbn_kps__ok. 

begin  ---  mbn_kps__ok_Event 

TAE*TaeJVirwVm_Extract__Count  ( Inf o . Parm_Ptr ,  Count); 

Text_IOoPut  ("Panel  mbn__kps,  parm  mbn_kps__ok:  value  =  "); 
if  Count  >  0  then 

TAE „ Tae_Vm . Vm_Extract_SVAL  ( Inf o « Parm_Ptr ,  1,  Value(l)); 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if; 

--  mbn_kps_ok 
Destroy_Panel ; 

Pane l_grnd__eq  „  Connect_Pane  1  ( TAE  •  TaeJWp  t .  WPT__P REFERRED )  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  mbn_kps_ok . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  mbn_kps_ok. 

end  mbn_kps_ok_Event; 


--  end  EVENT  HANDLERS 


Di spat ch_I tern 


Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE »Tae_Wpt « Event _Context_Ptr  )  is 
--I  NOTES:  (none) 
begin  --  Di  spat  ch__I  tern 

if  TAE . Tae_Misc  .  s_equal  ( "kps_keyin_f  rom"  ,  User_Context__Ptr .  Parm_Name) 

then 

kps_keyin_f rom_Event  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Misc , s_equal  ( "kps_keyin_to" ,  User__Context_Ptr . Parm_Name) 
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then 


kp  s_key  in__t  o_E vent  { Us  er_Con t ex t_P t r ) ; 
elsif  TAE . Tae_Misc . s_equal  ( "inbnjteyin" ,  User_Context_Ptr . Parm_Name)  then 
mbn_keyin_Event  (User_Context_Ptr)  ; 
elsif  TAE . Tae_Misc . s_equal  ( Mmbn_kps_cancel M , 

User__Cont ext_Pt r . Parm_Name )  then 

inbn_kps_cancel_Event  (User_Context_Ptr) ; 
elsif  TAE .  Tae_Misc  .  s_equal  ( ,,mbn_kps_help" ,  User_Context_Ptr .  Parm_Name ) 

then 

mbn_kps__help_Event  (User_Context_Ptr )  ; 
elsif  TAE .  Tae_Misc  .  s_equal  (  "mbn_kps__okn  ,  User_Context_Ptr  .Parm_Name)  then 
iribn_kps_ok__Event  (User__Context_Ptr )  ; 
end  if; 

end  Dispatch_Item; 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_mbn_kps; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  pan_op_no_s . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

—  ***  Application:  CAPS  Software  Base 


* 

*  Panel_op_no  —  Package  SPEC 

* 


with  TAE; 
with  X_Windows; 

package  Panel_op__no  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  op_no 

These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 
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The  panel's  name  is  changed  (not  title) 
For  panel :  op__no 

CHANGE  LOG: 

4 -"Mar- 9  6  TAE  Generated 


Info  :  TAE .  Tae_Wpt .  Event_Context__Ptr ;  ~~  panel  information 


Initialize_Panel 


Subprogram  SPEC 


procedure  Initialize__Panel 
(  Collection_Read 

:  in  TAE oTae_COo Collect ion_Ptr  ); 


--  TAE  Collection  read  from 
resource  file 


-- I  PURPOSE: 

This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 


-- I  EXCEPTIONS: 

—  1  TAE .UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
-- |  TAE . Tae_Co .NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
-- 1  Collection__Read 


NOTES : 


(none) 


Great e_Panel 


Subprogram  SPEC 


procedure  Create__Panel 
(  Panel_State 

:  in  TAE .  Tae_Wpt . Wpt__Flags 

: =  TAE . Tae_Wp t . WPT_PREFERRED ; 

Re lat ive_Window 

:  in  X_Windows. Window 

:=  X_Windows *Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null„Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--j  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Inf o . Panel__Id. 


EXCEPTIONS : 
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-- I  TAE .  UNINITIAL  I  ZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 

—  I 

—  I  NOTES:  (none) 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

:  =  TAE  .  Tae_Wpt .  WPT__P  REF  ERRED  ; 

Relative_Window 

:  in  X__Windows  .  Window 

:=  X_Windows .Null_Window  ); 


Panel  origin  is  offset  from 
--  this  X  Window,  Null_Window 
--  uses  the  root  window. 


PURPOSE : 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info .Panel__Id. 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 

TAE .UNINITIAL IZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE . TAE__FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_S TATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES:  (none) 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel; 


--I  PURPOSE: 

—  I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


EXCEPTIONS : 
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-“I  TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o „ Panel_Id  is  an  invalid  id. 
—  I 

--I  NOTES: 


--I  Info . Panel^Id  is  set  to  TAE . NULL_PANEL_ID ,  and  should  not  referenced 
-- I  in  any  Wpt  call  until  it  is  created  again. 


Di  spat  ch__I  tern 


Subprogram  SPEC 


procedure  Dispatch_Item 
(  User_Context_Ptr 

:  in  TAE .  Tae_JWpt .  Event__Context_Ptr 


--  Wpt  Event  Context  for  a  PARM 
) ;  - -  event . 


—  I  PURPOSE ; 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


--I  EXCEPTIONS: 

-- !  Application-specific 

-- |  NOTES:  (none) 


end  Panel_op_no; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE . ] 

--  ***  File:  panopnob . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

---  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

__  ***  Application:  CAPS  Software  Base 


_  ************************************************************************** 

_  * 

*  Panel_op_no  --  Package  BODY 

„  * 

_ _  ************************************************************************** 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel__keyword; 
with  Panel^opdetail; 

MERGE  NOTE:  Add  additional  "with-s  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  Wwith"s  ABOVE  this  line. 

package  body  Panel_op__no  is 
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NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  op_no 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 
An  item’s  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items : 

keyin_op_no,  op__no__cancel,  op_no_help,  op_no_label, 

op_no_ok,  test_case_label,  testcase_no 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

4 -Mar- 9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co . Collect ion_Ptr  )  is 
--I  NOTES:  (none) 
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--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  :=  new  TAE. Tae_Wpt .Even t_Cont ext ; 

Info . Collection  : =  Collection_Read; 

TAE  .  Tae_Co .  Co__Find  ( Inf  o .  Collect  ion,  "op_no_v,,/  Info. View)  ; 

TAE .Tae_Co .Co_Find  ( Inf o .Collection,  "op_no_t",  Inf o . Target ) ; 

--  MERGE  NOTE;  Add  code  for  Initialize_Panel  BELOW  this  line. 

MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 

when  TAE .UNINITIALIZED_PTR  => 

Text__IO . Put_Line  ( " Panel_op_no . Init ialize_Panel :  " 

&  " Collect ion_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBE R  => 

Text_IO .  Put__Line  ( "Panel_op_.no .  Init ialize_Panel :  " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create__Panel 


Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt .Wpt_Flags 

:=  TAE . Tae_Wpt .  WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  XJWindows .Null_Window  )  is 

--1  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  --  Create_Panel 

if  Info  .Panel_Id  =  Tae  .Null_JPanel_Id  then 
TAE . Tae_Wpt . Wpt_NewPanel 

(  Display_Id  =>  Global  .Def  ault__Display_Id, 
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Data_Vm 

View__Vm 

Re lat i ve_Window 
User_Context 
Flags 
Panel_Id 

else 

Text_IO . Put_Line  ( " Pane 1 
end  if; 

--  MERGE  NOTE:  Add  code  for 
--  MERGE  NOTE:  Add  code  for 

exception 


=>  Info. Target, 

=>  Info. View, 

= >  Re  lat  ive_Window , 

=>  Info, 

=  >  Panel__State, 

=>  Info.Panel_Id  ); 

(op_no)  is  already  displayed."); 


Create_Panel  BELOW  this  line. 
Create__Panel  ABOVE  this  line. 


when  TAE.UNINITIALIZED_PTR  => 

Text__IO .  Put_Line  (  "Pane l__op_no . Cr eat e_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE . TAE  FAIL  =  > 

Text_IO . Put_Line  ( " Panel_op_no . Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 


end  Create_Panel; 


Connect_Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel__State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . TaeJWpt . WPT_PREFERRED; 

Re 1 at i ve_Windo w 

:  in  X_Windows .Window 

:=  X__Windows  .Null_Window  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Connect__Panel  ABOVE  this  line. 

begin  --  Connect_Panel 

if  Inf o .  Panel_Id  =  Tae  .Null_Panel__Id  then 
Create__Panel 

(  Relative_Window  =>  Relative_Window, 
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Panel  State 


=>  Panel_State  ) ; 


else 

TAE.Tae_Wpt . Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) ; 
end  if; 


--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_STATE  =  > 

Text_IO .  Put_Line  (  "  Panel_op_no .  Connect_Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 


Destroy_Panel 


Subprogram  BODY 


procedure  Destroy__Panel  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy„Panel 

TAE . Tae_Wpt .Wpt_PanelErase ( Info . Panel__Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE  .  Tae_Wpt .  BAD_PANEL_ID  => 

Text_XO  o  Put__Line  (  "  Panel_op_no .  Destroy__Panel :  " 

&  "Info .Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL„PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

--  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy_Panel; 
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--  begin  EVENT  HANDLERS 


keyin_op_no_Event 


--  Subprogram  SPEC  &  BODY 


procedure  keyin_op_no_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  TAE.Taeint; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  keyin_op_no . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  keyin__op_no . 

begin  --  keyin_op_no_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count )  ; 

Text__IO.Put  ("Panel  op_no,  parm  keyin_op_.no:  value  =  “); 
if  Count  >  0  then 

TAE . Tae_Vm. Vm_Extract_IVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text_IO . Put_Line  (TAE . Taeint 1 image (Value ( 1 ) ) ) ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  keyin_op_no . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  keyin_op_no . 

end  keyin_op_no_Event ; 


°P_no_cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  op_no_cancel_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

—  I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 


--I 

— I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 »  ,TAE  ,Tae__Taeconf  .  STRINGS  I ZE)  ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  panri:  op_no_cancel . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  panri:  op_no__cancel . 

begin  --  op_no_cancel_Event 

TAE.Tae_Vm,Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count)  ; 

Text_IO .  Put  ("Panel  op_no ,  panri  op_no_cancel :  value  =  "); 
if  Count  >  0  then 

TAE .  Tae_Vm.  Vm__Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text_IO  *  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO „  Put__Line  (  "none"  )  ; 
end  if; 

- -  op_no_c  anc  e 1 
Destroy_Panel ; 

Panel_keyword.Connect_Panel  (TAE  . Tae__Wpt  ,WPT_PREF ERRED)  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parxn:  op_no_cancel . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  panri:  op_no_cancel . 

end  op_no_cancel_Event ; 


op_no_help_Event 


--  Subprogram  SPEC  &  BODY 


procedure  op_no_help_Event 

(  Info  :  in  TAE . Tae_JWpt „ Event  _Context  Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER,  Insert  application  specific  information, 

—  I 

-- I  NOTES:  (none) 

Value  :  array  ( 1  -  •  1 )  of  String  ( 1 ,,  TAE .  Tae__Taeconf  .  STRINGS  I ZE)  ; 

Count  :  TAE . Taeint ; 

MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parxn:  op_no_help. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parxn:  op_no_help, 

begin  op_no_help_Event 

TAE.Tae_Vm»Vm_Extract_Count  ( Inf  o .  Parxn_Ptr ,  Count) ; 
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Text_IO.Put  ("Panel  op_no,  parm  op_no_Jhelp:  value  =  "); 
if  Count  >  0  then 

TAE . Tae__Vm . Vm_Extr act_SVAL  (Inf o . Parm_Ptr,  1 ,  Value(l)); 
Text__IO .  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO .  Put_Line  (  " none "  )  ; 
end  if; 

- “  °P_no_he lp 
Destroy_Panel ; 

Panel^keyword .  Connect_Panel  ( TAE .  Tae_Wpt . WPT_PREFERRED )  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  op_no_help. 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  op_no_help. 

end  op_no_help__Event ; 


op_no_labe l_Event 


--  Subprogram  SPEC  &  BODY 


procedure  op_no_label„Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--[  PURPOSE: 

-~l  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .  .TAE  .  Tae__Taeconf  .  STRINGS  IZE)  ; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  op_no_label . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  op__no_label . 

begin  --  op_no_label_Event 

TAE .Tae„Vm. Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count) ; 

Text_IO.Put  ("Panel  op_no,  parm  op_no_label:  value  =  " ) ; 
if  Count  >  0  then 

TAE . Tae_Vm. Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)) ; 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  op_no_label. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  op_no_label. 

end  op_no__label_Event ; 
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op_no„ok_Event 


--  Subprogram  SPEC  &  BODY 


procedure  op_no__ok__Event 

(  Info  :  in  TAE .  Tae__Wpt .  Event_Context_Ptr  )  is 

--I  PURPOSE: 

-  -  I  EVENT  HANDLER*  Insert  application  specific  inf  ormation . 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1. .1)  of  String  (1. .TAE . Tae_Taeconf « STRINGS IZE) ; 
Count  :  TAE,Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parms  op_no_ok. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  op__no_ok, 

begin  --  op_no_ok„Event 

TAE,Tae__yin.Vin_Extract__Count  ( Inf o . Parm_Ptr ,  Count); 

Text_IO.Put  ("Panel  op_no,  parm  op_no_ok:  value  =  " ) ; 
if  Count  >  0  then 

TAE . Tae__Vm *  Vm__Ext  r  act_S  VAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text„IO.  Put__Line  (Value(l)); 
else 

Text_IO  o Put_Line  ( "none " ) ; 
end  if; 

-  -  op_no_ok 
Destroy_Panel ; 

Pane l_opde tail *Connect_Panel  (TAE . Tae_Wpt «WPT_PREFERRED) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  op_no_ok» 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  op_no_ok. 

end  op__no__pk_Event ; 


test__case_label_Event 


--  Subprogram  SPEC  &  BODY 


procedure  test_case__label_Event 

(  Info  :  in  TAE .  Tae__Wpt .  Event_Context__Ptr  )  is 
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-“I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1. .TAE.Tae_Taeconf .STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  test__case_label 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  test_case_label 

begin  --  test_case__label_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count) ; 

Text__IO.Put  ("Panel  op_no,  parm  test„case_label :  value  =  "); 
if  Count  >  0  then 

TAE.Tae__Vm.Vm_Extract__SVAL  ( Inf o . Parm_Ptr,  1 ,  Value (1)); 

Text_IO . Put„Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  test_case_label . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  test_case__label . 

end  test_case__label_Event  ; 


testcase_no_Event 


--  Subprogram  SPEC  &  BODY 


procedure  testcase_no_Event 

(  Info  :  in  TAE.Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  TAE.Taeint; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  testcase_.no . 
•*--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  testcase_no. 

begin  --  testcase_no_Event 

TAE  . Tae__Vm . Vm_Extrac t_Count  ( Inf o .  Parm_Ptr,  Count)  ; 

Text_IO.Put  ("Panel  op_no7  parm  testcase_no;  value  =  "); 
if  Count  >  0  then 
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TAE .  Tae__Vm .  Vm_Ext rac t_IVAL  ( Inf  o  ,  Parm__Ptr ,  1,  Value(l)); 
Text__IO .  Put_Line  (TAE  . Taeint 1  image  (Value  (1)  )  )  ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  testcase_no. 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  testcase_no. 

end  testcase_no_Event; 


--  end  EVENT  HANDLERS 


Di spat ch_I tern 


- -  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context__Ptr  :  in  TAE .  Tae_Wpt .  Event_Context_Ptr  )  is 
-“I  NOTES:  (none) 
begin  --  Di spat ch_I tern 

if  TAE  o Tae_Misc . s_equal  ( "keyin_op_no" ,  User_Context_Ptr . Parm_Name )  then 
keyin_op_no_Event  (User_Context_Ptr ) ; 
els if  TAE  o  Tae_Misc  *  s_equal  ( nop_no_cancel ” ,  User_Context__Ptr » Parm_Name) 

then 

op_no__cancel_Event  (User_Context__Ptr)  ; 
elsif  TAE . Tae_Misc  * s_equal  ( Mop_no_help" ,  User_Context _Ptr . Parm__Name)  then 
op_no_help_Event  (User_Context_Ptr ) ; 
elsif  TAE .  Tae_Misc « s_equal  (  " op  no  label "  ,  User__Context_Ptr .  Parm_Name ) 

then 

op_no_label_Event  (TJser_Context_Ptr )  ; 
elsif  TAE . Tae_Misc . s_equal  ( "op_no_ok” ,  User_Context_Ptr . Parm_Name )  then 
op_no_ok_Event  (User_Context_Ptr) ; 

elsif  TAE  oTae_Misc .  s_equal  ( "test__case__labelu ,  User__Context_Ptr .  Parm_Name) 
then 

test_case_label_Event  (User_Context_Ptr) ; 
elsif  TAE . Tae_Misc . s__equal  ( "  testcase__no " ,  User_Cont ext_Ptr . Parm_Name ) 

then 

testcase„no_Event  (User_Context_Ptr )  ; 
end  if; 

end  Di  spat  ch_I  tem; 
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--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_op_no ; 

--  ***  TAE  Plus  Code  Generator  version  V5 . 3  [Merge  Token:  DO  NOT  DELETE.] 

__  ***  pile:  pan_opdetail__s  .a 

--  ***  Generated:  Mar  4  14:14:09  1996 

__  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

—  ***  Application:  CAPS  Software  Base 

—  ******************************************************■*************#*.***** 
_  * 

*  Panel_opdetail  —  Package  SPEC 

_  * 

—  ************************************************************************** 


with  TAE; 
with  X_Windows; 


package  Panel_opdetail  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  opdetail 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  opdetail 


CHANGE  LOG: 

4 -Mar- 9 6  TAE 


Generated 


Info  :  TAE .  Tae__Wpt  .Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


—  Subprogram  SPEC 
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TAE  Collection  read  from 
resource  file 


procedure  Initialize„Panel 
(  Collection_Read 

:  in  TAE . Tae_Co .Collect ion_Ptr  ); 


-- I  PURPOSE: 

--I  This  procedure  initializes  the  Info.Target  and  Info. View  for  this  panel 


-- I  EXCEPTIONS: 

-- I  TAE .UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
-- |  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--  |  Collection_JRead 


NOTES : 


(none) 


Create_Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel__State 

:  in  TAE . Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt .WPT_P REFERRED ; 

Re lat i veJWindow 

:  in  X_Windows .Window 

:=  XJWindows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
~~  this  X  Window.  NullJWindow 
uses  the  root  window. 


PURPOSE : 

This  procedure  creates  this  panel  object  in  the  specified  Panel__State 
and  stores  the  panel  Id  in  Inf o .  Pane l__Id. 

EXCEPTIONS : 

TAE .UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE . TAE_FAIL  is  raised  if  the  panel  could  not  be  created 

NOTES:  (none) 


Connect_Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel__State 
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:  in  TAE .  Tae__Wpt .  Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_JWindows  .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null__Window 
--  uses  the  root  window. 


PURPOSE : 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
Info . Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel__State . 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 

TAE .UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES:  (none) 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel; 


--I  PURPOSE: 

-- I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
—  I  associated  panel  object  (not  the  target  and  view). 


—  I  EXCEPTIONS : 

"I  TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid  id. 


NOTES ; 


--I  Inf o . Panel_Id  is  set  to  TAE .NULL_PANEL„ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Di spat ch_I tern 


--  Subprogram  SPEC 
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procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae__Wpt  .Event__Context_Ptr  );  --  event. 

—  I  PURPOSE : 

This  procedure  calls  the  Event  Handler  specified  by  User_Context__Ptr 

--I 

—  I  EXCEPTIONS : 

-- |  Application-specific 
--I 

-- I  NOTES :  (none) 
end  Panel_opdetail; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  pan_opdetail_b.a 

--  ***  Generated:  Feb  28  15:30:54  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

—  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


_  ************************************************************************** 

_  * 

*  Panel_opdetail  --  Package  BODY 

_  * 

_ _  ************************************************************************** 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 

use  Text__io,  Global; 


--  One  "with"  statement  for  each  connected  panel. 

with  Panel_op__no; 

with  Panel__sdetail; 

with  Panel_opdetail; 

with  Panel_jmbn_kps ; 

MERGE  NOTE:  Add  additional  "with,,s  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  "withns  ABOVE  this  line. 


package  body  Panel__opdetail  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
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modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments . 
Modifications  outside  the  MERGE  NOTEs  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  opdetail 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item’s  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

key in_op_name ,  opdetail_cancel,  opdetail__getsig,  opdetail__help, 

opdetail_next ,  opdetail_ok,  profile_list 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

2 8 -Feb- 9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


--ADDED  by  Ruey_Wen  (Vincent)  Hong  951128 


Type  operator_type  is  record 

op_name  :  string (1. .TAE . Tae_Taeconf . STRINGS IZE) ; 
profile  pattern  :  String (1 .. TAE . Tae_Taeconf . STRINGSIZE) ; 
end  record; 

type  op_array  is  array (1.. 30)  of  operator_type; 

Operator  :  op_array; 

profile_vec  : 

prof ileadd_vec  : 
prof ile_selected  : 
profile_list  : 

prof ile_f ile__name  : 

number, 

index  :  integer  :=  1; 

op__index  :  integer  :=  1; 


s_vector (1. .100) :=  (others=>  new  STRING (1 .. 80 )) ; 
s_vector (1. .15)  :=  (others=>  new  STRING ( 1 .. 80 )) ; 

String  (1..80)  :=  (others=>'  '); 

f  ile__type; 

String ( 1 . . 12 )  : =  "prof ile_list " ; 
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InitializeJPanel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collect ion_Read 

:  in  TAE.Tae_Co . Collect ion_Ptr  )  is 
-- |  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize__Panel  ABOVE  this  line. 

begin  --  Initial ize_Panel 

Info  :=  new  TAE.Tae_Wpt . Event _Cont ext ; 

Info. Collect ion  :=  Collection_Read; 

TAE . Tae_Co .Co_Find  ( Info .Collection,  "opdetail_v" ,  Info .View) ; 

TAE . Tae_Co . Co_Find  ( Inf o .Collection,  "opdetailjt " ,  Inf o. Target ) ; 

--  MERGE  NOTE:  Add  code  for  Init ialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Init ialize_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text__IO .  Put__Line  ( " Pane l_opdet ail .  Initialize_Panel :  " 

&  "Collection_JRead  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text__IO .  Put__Line  (  "  Pane  l__ppdet  ail .  Initialize_Panel :  " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create_Panel 


--  Subprogram  BODY 


procedure  Great e__Panel 
(  Panel__State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 
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Relat ive_Window 

:  in  X_Windows  .Window 

:=  X_Windows  .NullJWindow  )  is 

--I  NOTES:  (none) 


--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create__Panel  ABOVE  this  line. 

begin  --  Create_Panel 


if  Info. Panel  Id  =  Tae.Null  Panel  Id  then 


TAE .  Tae_Wpt  .Wpt_NewPanel 
(  Display_Id 
Data_Vm 
View_Vm 

Relative_Window 

User_Context 

Flags 

Panel_Id 


=>  Global .Default_Display_Id 
=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 

=>  Info, 

=>  Panel_State, 

=>  Info . Panel_Id  ) ; 


else 

Text_IO . Put_Line  ("Panel  (opdetail)  is  already  displayed 
end  if; 


)  ; 


--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 


exception 


when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_opdetail . Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text__IO .  Put_Line  (  " Pane l_opdet ail  .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise ; 

end  Create_Panel; 


Connect_Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 
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RelativeJWindow 

:  in  X_Windows  .Window 

:  =  X_Windows  .Null_Window  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_JPanel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 


— ADDED  By  RUEY-WEN  HONG  (VINCENT)  960228 


Dummy : Bo o 1 e an ; 

L  : integer :=1; 


begin  Connect_Panel 

if  Info  .Panel_Id  =  Tae  .Null_Panel__Id  then 
Great  e_Pane 1 

(  RelativeJWindow  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE . Tae_Wpt . Wpt_SetPanelState  (Info .Panel_Id,  Panel_State) ; 
end  if; 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 


—  ADDED  By  RUEY-WEN  HONG  (VINCENT)  960228 
strlen ( library, L) ; 

list__coxnponents  (prof  ile_list ,  prof  ile_f  ile__name,  prof  ile_vec ,  number)  ; 

TAE .Tae_Wpt .Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel__State)  ; 

TAE.TaeJWpt .Wpt_SetStringConstraint s ( Inf o . Panel_Id, "prof ile_list " , taeint (numb 
er) ,prof ilejvec) ; 

Dummy :  =TAE . Tae__Wpt  .Wpt_P ending; 


exception 

when  TAE . Tae_Wpt . BAD_STATE  =  > 

Text_IO .  Put  JLine  (  "  Pane  l__opdet  ail  .Connect__Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 


238 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO .  Put__Line  (  "Panel_opdetail .Destroy_Panel :  " 

&  " Inf o . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null ; 

end  Destroy_Panel; 


--  begin  EVENT  HANDLERS 


keyin„op__name_Event 


Subprogram  SPEC  &  BODY 


procedure  key in__op_name_E vent 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 
—  I 
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--I  NOTES  :  (none) 


Value  :  array  (1..1)  of  String  ( 1 .  . TAE * Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  keyin_op_name . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  keyin_op__name * 

begin  --  keyin_op_name_Event 

TAE * Tae__Vm*  Vm_Extract_Count  ( Inf o  .  Parm„Ptr ,  Count)  ; 

Text_IO*Put  ("Panel  opdetail,  parm  keyin__op_name :  value  =  " )  ; 
if  Count  >  0  then 


--  ADDED  By  RUE Y -WEN  HONG 

(VINCENT)  960228 

Value (1)  :=  (others  =>  ' 

• ) ; 

TAE . Tae_Vm . Vm_Ext rac t_SVAL  ( Info . Parm„Ptr,  1 ,  Value ( 1 ) ) ; 
Text  __IO .  Put_L  ine  (Value(l)); 
else 

Text_IO  *  Pu t__Line  (  " none  "  )  ; 
end  if; 


--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm: 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm: 


keyin_op_name * 
keyin_op_name * 


--  ADDED  By  RUE Y -WEN  HONG  (VINCENT)  960228 


Operator  (op_index)  *op__name  s=  Value(l); 


end  keyin_op__name__Event ; 


opdetail_cancel_Event 


Subprogram  SPEC  &  BODY 


procedure  opdetail_cancel_Event 

(  Info  :  in  TAE  *  Tae_Wpt . Event_Context_Ptr  )  is 

—  I  PURPOSE: 

-- I  EVENT  HANDLER*  Insert  application  specific  information* 

--I 

-- I  NOTES:  (none) 

Value  :  array  (1**1)  of  String  (1* .TAE* Tae_Taeconf .STRINGS IZE)  ; 
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Count  :  TAE . Taeint ; 


--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  opdetail_cancel . 
”  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  opdetail_cancel . 

begin  --  opdetail_cancel_Event 

TAE .  Tae__Vm . Vm_Extr  ac  t__Count  ( Info .  Parm_Ptr ,  Count )  ; 

Text__IO .  Put  ("Panel  opdetail,  parm  opdetail__cancel :  value  =  " )  ; 
if  Count  >  0  then 

TAE .  Tae_Vtn.  Vm_Extract_SVAL  ( Inf  o  .  Parm_Ptr ,  1,  Value(l)); 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put^Line  ( "none " ) ; 
end  if; 

—  opdetail_cancel 
Dest roy_Panel ; 

Panel_op_no.Connect_Panel  ( TAE . Tae_Wp t . WPT_PREFERRED ) ; 

MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  opdetail__cancel . 

MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  opdetail_cancel . 

end  opdetail_cancel__Event ; 


opdet  ai  l__get  s  ig__Event 


--  Subprogram  SPEC  &  BODY 


procedure  opdetail_getsig_Event 

(  Info  :  in  TAE . Tae_Wpt .Even t_Context_Ptr  )  is 

--I  PURPOSE: 

”~!  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 .  .TAE  .Tae__Taeconf  .  STRINGS  IZE)  ; 

Count  :  TAE. Taeint; 

MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  opdetail_getsig . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  opdetail_getsig . 

begin  --  opdetail_getsig_Event 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count) ; 

Text_IO.Put  ("Panel  opdetail,  parm  opdetail_getsig:  value  =  "); 
if  Count  >  0  then 
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—  ADDED  By  RUE Y -WEN  HONG  (VINCENT)  960228 


Value (1)  :=  (others  =>  '  ’); 


TAE  *  Tae_Vin  *  Vm_Extrac t_SVAL  (Inf o . Parm_Ptr,  1,  Value(l)); 
Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO. Put_Line  ( "none" ) ; 
end  if; 


--  ADDED  By  RUE Y -WEN  HONG  (VINCENT)  960228 


for  J  in  l..op_index  loop 
text__io  .new_line; 

text__io  .put  (Operator  (J)  ,op_name)  ; 
t ext_io . new_l ine ; 

text_io. put (Operator (J) .prof ile_pat tern) ; 
end  loop; 

op_index  : -  op_index  +  1 ; 


--  ADDED  By  RUE Y -WEN  HONG  (VINCENT)  960228 


for  J  in  l..op_index  loop 

for  K  in  1 . .TAE . Tae_Taeconf . STRINGS IZE  loop 

case  Operator  (J)  .  prof  ile__pattern  ( K)  is 

when  'A'  => 

If  Global. Sig_Exist_Chk_Vec(l)  =  "0" 
then 

Global . Sig_Keep_Vec (Global . skv_index)  : =  "A" ; 
Global . skv_index  :=  Global „ skv_index  +  1; 
Global .Sig_Exist_Chk_Vec (1)  : =  "1” ; 

else 
Null ; 
end  if; 

when  1 B 1  = > 

If 

Sig_JExist  Chk__Vec  (2)  =  "0" 

then 

Sig_Keep_Vec ( skv_index)  : =  "B" ; 
skv_index  :=  skv_index  +  1; 

Sig__Exist_Chk_Vec  (2)  :  =  "1"; 

else 
Null; 
end  if; 

when  "C*  -> 
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If 

Sig_Exist__Chk_Vec  ( 3 )  =  "0" 
then 

Sig_Keep_Vec  (skv__index)  :=  "C"  ; 
skv_index  : =  skv_index  +  1 ; 
Sig_Exist_Chk_Vec (3)  : =  "l"; 

else 
Null; 
end  if; 

when  '  D'  => 

If 

Sig_Exist„Chk_Vec (4)  =  M0" 
then 

Sig_Keep_Vec (skv_index)  : =  "D" ; 
skv_index  :  =  skv__index  +  1 ; 
Sig_Exist_Chk_Vec (4)  : =  "l"; 

else 
Null; 
end  if; 

when  1 E 1  => 

If 

Sig_Exist_Chk_Vec ( 5 )  =  "0" 
then 

Sig_Keep_Vec (skv_index)  :=  "E"  ; 
skv_index  :=  skv__index  +  1; 
Sig_Exist_Chk_Vec (5)  :=  "l"; 

else 
Null; 
end  if; 

when  ' F '  =  > 

If 

Sig_Exist_Chk_Vec ( 6 )  =  "0" 
then 

Sig_Keep_Vec ( skv_index )  : =  "F" ; 

skv_index  :=  skv_index  +  1; 
Sig_Exist_Chk__Vec  (6)  :=  "l"; 

else 
Null; 
end  if; 

when  others  =>  Null; 

end  case; 
end  loop; 
end  loop ; 

--  opdetail_getsig 

Panel_sdetail . Connect_Panel  (TAE . Tae_Wpt .WPTJPREFERRED) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  opdetail_getsig 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  opdetail_getsig 

end  opdetail__getsig_Event; 
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opdetail_help_Event 


Subprogram  SPEC  &  BODY 


procedure  opdetail__help__Event 

(  Info  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

-- |  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  opdetail_help . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  opdetail_help . 

begin  --  opdetail_help_Event 

TAE . Tae_Vm. Vm__Extract_Count  ( Inf o . Parm_Ptr ,  Count); 

Text_IO.Put  ("Panel  opdetail,  parm  opdetail_help :  value  =  ”); 
if  Count  >  0  then 

TAE .  Tae_Vm .  Vm_Ext  r  ac  t__SVAL  ( Inf  o  .  Pann_Ptr ,  1,  Value(l))  ; 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text„IO . Put _Line  ( " none " ) ; 
end  if; 

--  opdetail_help 
Destroy_Panel ; 

Panel_op_no . Connect_Panel  (TAE . Tae_Wpt  .WPT_PREFERRED)  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  opdetail__help . 

----  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  opdetail_help . 

end  opdetail_help_Event ; 


opde t  a i l_next _E vent 


Subprogram  SPEC  &  BODY 


procedure  opdetail_next_Event 

(  Info  :  in  TAE.Tae_Wpt .Event __Cont ext _Ptr  )  is 
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--I  PURPOSE: 

--|  EVENT  HANDLER,  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1 . . 1)  of  String  ( 1 . .TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  opdetail_next . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  opdetail_next . 

begin  --  opdetail_next_Event 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 

Text_IO.Put  ("Panel  opdetail,  parm  opdetail_next :  value  =  " ) ; 
if  Count  >  0  then 

TAE . Tae_Vra . Vm_J3xtrac t_SVAL  (Inf o.Parm_Ptr,  1,  Value(l)); 

Text__IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO .  Put__Line  (  "none "  )  ; 
end  if; 

--  opdetail„next 
Destroy_Panel ; 

Connect_Panel  ( TAE .  Tae__Wpt . WPT_PREFERRED )  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  opdetail_next . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  opdetail_next . 

end  opde t  a i l_next _E vent ; 


opde  t  a  i  l__ok_E  vent 


--  Subprogram  SPEC  &  BODY 


procedure  opde tail_ok_E vent 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--J  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  opdetail_ok. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  opdetail__ok. 

begin  --  opdetail_ok_Event 
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TAE . Tae_Vm. Vm_Extract_Count  ( Inf o . Parm_Ptr,  Count ) ; 

Text_IO . Put  ("Panel  opdetail,  parm  opdetail__ok :  value  =  " )  ; 
if  Count  >  0  then 

TAE  .Tae_Vm.  Vm_Extract__SVAL  ( Inf o . Parm_Ptr,  1,  Value(l)); 
Text_IO.Put_Line  (Value(l)); 
else 

Text_IO • Put_Line  ( " none " ) ; 
end  if; 

--  opdetail_ok 
Destroy_Panel ; 

Panel__mbn_kps  .  Connect_Panel  ( TAE  .  Tae__Wpt . WPT_PREFERRED )  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  opdetail_ok. 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  opdetail_ok. 

end  opdetail__ok_Event ; 


prof ile_list_Event 


--  Subprogram  SPEC  &  BODY 


procedure  prof ile_list_Event 

(  Info  :  in  TAE „ Tae_Wpt „ Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

-- I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE . Tae_Taeconf . STRINGS I ZE) ; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  prof ile__list . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  prof ile_list . 


--ADDED  By  RUEY-WEN  HONG  (VINCENT)  960228 


S_Value  :  TAE . s_vector ( 1 • • 1 )  ; 


begin  --  prof  ile_list__Event 

TAE . TaeJVm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count )  ; 
Text_IO.Put  ("Panel  opdetail,  parm  prof ile_list :  value  =  " ) ; 
if  Count  >  0  then 

TAE . Tae_Vm. Vln_Extract__SVAL  (Info •  Parm_Ptr,  1,  Value(l)); 
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Text_IO .  Put_Line  (Value  ( 1 )  )  ; 
else 

Text_IO . Put_Line  ( "none" ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  prof ile_list . 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  prof  ile__list . 


- -ADDED  By  RUE Y- WEN  HONG  (VINCENT)  960228 


profile_selected(l. .80) :=Value (1) (1. .80) ; 
prof ileadd_vec (index) . all : =prof ile_selected; 

TAE .  Tae_Wpt  .Wpt_PanelMes sage  (map__pro_di  splay,  "Test "  )  ; 

TAE . Tae_Wpt  .Wpt_ParmRe ject  (Inf o  .  Panel_Id,  "map_pro_di  splay"  ,  "Test")  ; 
TAE.  Tae__Wpt.Wpt_SetString  (Info.  Panel_Id,  "map_pro__display" ,  "Test")  ; 
TAE .  Tae__Wpt  .Wpt_SetStringConstraints  ( 

Info . Panel_Id, " selected_sop" , taeint (index) , prof ileadd_vec) ; 
index  : =  index  +  1; 

S_Value ( 1 )  :=  new  String  (1. .TAE .Tae_Taeconf . STRINGS IZE) ; 

S_Value ( 1) .all  : =  Value (1); 

TAE . TAE_Vm . Vm_Set  Str  ing__Vec ( Inf o .target ,  "map_pro_di  splay" ,  1,  S_Value, 
TAE .  TAE_Vm .  P_Updat  e )  ; 

TAE .  TAE_Wpt . Wpt_ParmUpdate  ( Info .  Panel_Id,  "map_pro_display"  )  ; 


--  ADDED 


Operator (op  index) .profile  pattern  :=  Value(l); 


end  prof ile_list_Event ; 


—  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User„Context_Ptr  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 
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--I  NOTES:  (none) 


begin  --  Dispatch_Itexn 

if  TAE « Tae_Misc  *  s_equal  ( " key in_op_name " ,  User__Context_Ptr * Parxn_Name)  then 
keyin_op_name_Event  (User_Context_Ptr)  ; 
elsif  TAE . Tae_Misc  *  s__equal  ( "opdetai^cancel" ,  User_Context_Ptr .  Pam_Name ) 
then 

opdetail_cancel_Event  (User_Context„Ptr)  ; 
elsif  TAE „  Tae__Misc  „  s__equal  (  "opdetail^getsig"  ,  User__Context_Ptr  .Parm_Name) 
then 

opdetail__getsig„Event  (User__Context_Ptr )  ; 
elsif  TAE * Tae_Misc o s_equal  ( Hopdetail_helpu ,  User_Context_Ptr . Parm_Name) 

then 

opdetail_help_Event  (User_Context_Ptr ) ; 
elsif  TAE  oTae_Hisc  *  s_equal  ( "opdetail_next " ,  User_Context_Ptr .  Parm_Name) 

then 

opdetail_next_Event  (User_Context_Ptr)  ; 
elsif  TAE * Tae_Misc . s_equal  ( "opdetai^ok" ,  User_Context_Ptr . Parm_Name) 

then 

opdetail_ok_Event  (User__Context_Ptr )  ; 
elsif  TAE « Tae_Misc  » s_equal  (  "prof  ile_list "  ,  User__Context__Ptr .  Parm_Name ) 

then 

prof  ile_list__Event  (User_Context_Ptr )  ; 
end  if ; 

end  Di spat ch_I tern; 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line „ 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line* 

end  Pane l_opdet ail; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE*] 

--  ***  pile:  pan„query_s * a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


************************************************************************** 

* 

*  Panel_query  --  Package  SPEC 

* 

************************************************************************^* 


with  TAE; 
with  X_Windows; 

package  Panel_query  is 

--I  PURPOSE: 

---  i  This  package  encapsulates  the  TAE  Plus  panel:  query 


248 


These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event__Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  query 


CHANGE  LOG: 

4 -Mar- 9 6  TAE 


Generated 


Info  :  TAE . Tae_Wpt . Event_Cont ext_Pt r ;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collect ion_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  );  --  resource  file 


~-|  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 


--I  EXCEPTIONS: 

-- 1  TAE .UNINITIALIZED_PTR  is  raised  if  Collection„Read  not  initialized 
-“I  TAE .Tae_Co .NO_SUCH__MEMBER  is  raised  if  the  panel  is  not  in 
-- !  Collection_Read 


NOTES : 


( none ) 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel__State 


--  Flags  sent  to  Wpt_NewPanel . 
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:  in  TAE oTae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_P REFERRED ; 


Relative_Window 

:  in  X_Windows  .Window 

:=  X__Windows  .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE : 

This  procedure  creates  this  panel  object  in  the  specified  Panel__State 
and  stores  the  panel  Id  in  Info .  Panel__Id. 

EXCEPTIONS : 

TAE .UNINITIAIiIZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE . TAE_FAIL  is  raised  if  the  panel  could  not  be  created 

NOTES:  (none) 


Connect  Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

•  in  TAE  .Tae_Wpt  .Wpt__F lags 

: =  TAE . Tae_Wpt .  WPT_PREFERRED ; 


Re  lat i ve_Window 

:  in  X_Windows -Window 

:=  X_Windows  .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  windox^. 


PURPOSE : 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info  - Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 

TAE.UNINXTIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE  * TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES:  (none) 
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Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel; 


-- |  PURPOSE: 

-- I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
—  I  associated  panel  object  (not  the  target  and  view). 


EXCEPTIONS : 

TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o .Panel_Id  is  an  invalid  id. 


NOTES : 

Info.Panel_Id  is  set  to  TAE . NULL_PANEL_ID ,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch__Item 

(  User_Context_JPtr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE . Tae_Wpt . Event_Context_Ptr  );  --  event. 


PURPOSE : 

This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 


-- |  EXCEPTIONS: 

|  Application-specific 
—  I 

--I  NOTES:  (none) 


end  Panel_query; 

__  ***  TAE  Plus  Code  Generator  version  V5 . 3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  pan_query_b . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

__  ***  Application:  CAPS  Software  Base 


* 

*  Panel_query  --  Package  BODY 

* 
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with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_sb_main; 
with  Panel_keyword; 

--  MERGE  NOTE:  Add  additional  "with,,s  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 


package  body  Panel_query  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event" . 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED: 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  query 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 
An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 

prof ile_label,  query_cancel,  query_help,  query__import , 

query_manu a 1 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

4 -Mar- 9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 
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Initializ  e__Pane  1 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE . Tae_Co .Collection_Ptr  )  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize__Panel  BELOW  this  line. 

—  MERGE  NOTE:  Add  declarations  for  Initialize_JPanel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  : =  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  : =  Collect ion_Read; 

TAE . Tae_Co . Co_Find  ( Inf o . Collection/  "query_v",  Info. View); 

TAE . Tae_Co .Co_Find  (Info. Collection,  ,,query_tM/  Inf o. Target )  ; 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 

when  TAE .UNINITIALIZED_PTR  => 

Text__IO . Put _ Line  (  " Pane l_query .Initializ e_Pane  1 :  " 

Sc  "Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO .  Put__Line  (  "Panel_query .  Initialize_Panel :  " 

Sc  "(View  or  Target)  not  in  Collection."); 
raise ; 

end  Initialize_Panel; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel__State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

:  =  TAE  .  Tae__Wpt .  WPT_PREFERRED  ; 

Re  lat  ive_Window 

:  in  X_Windows. Window 
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:=  X_Windows .Null_Window  )  is 
—  I  NOTES :  (none) 

--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  --  Create_Panel 

if  Inf o . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt - Wpt_NewPanel 


Displayed 

=  > 

Global  .Default_Display__: 

Data_Vm 

=  > 

Info. Target, 

View_Vln 

=  > 

Info. View, 

Relative_Window 

=  > 

Re 1 at i ve_Window , 

User_Context 

=  > 

Info, 

Flags 

=> 

Panel_State, 

Panel^Id 

=  > 

Inf o .  Panel__Id  ); 

else 

Text_IO . Put_Line  ("Panel  (query)  is  already  displayed."); 
end  if; 

--  MERGE  NOTE:  Add  code  for  Create__Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 

exception 

when  TAE  .UNINITXALIZED__PTR  => 

Text_IO .  Put__Line  ( " Panel_query .  Create__Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE . TAE_FAIL  => 

Text_IO. Put_Line  (  "Pane l__query. Cr eat e_Panel :  " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel; 


Connect_Panel 


- -  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel„State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  XJWindows  .Window 
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:=  X_Windows  .Null__Window  )  is 
-- I  NOTES :  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line, 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel__Id  then 
Create_Panel 

(  Relative_Window  =>  Relative__Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE . Tae__Wpt  .Wpt_SetPanelState  ( Inf o .  Panel_Id,  Panel_State)  ; 
end  if; 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( "Panel_query . Connect_Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 


Destroy_Panel 


Subprogram  BODY 


procedure  Destroy_Panel  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy__Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy__Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE .  Tae_Wpt . Wpt__PanelErase  ( Info .  Panel_Id)  ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 
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Text_IO .  Put_Line  (  "Panel_query  .Destroy_Panel ;  " 

&  "Inf o .Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE  .  Tae_Wpt .  ERASE_NULL__PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

--  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy_Panel; 


--  begin  EVENT  HANDLERS 


prof ile_label_Event 


Subprogram  SPEC  &  BODY 


procedure  prof  ile_label__Event 

(  Info  :  in  TAE. Tae_Wpt .Even t_Context_Ptr  )  is 

--I  PURPOSE: 

—  I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

-- I  NOTES;  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE . Tae int ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  prof ile_label . 
---  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  prof ile_label . 

begin  —  prof ile_label_Event 

TAE o Tae_Vm . Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 

Text_IO . Put  ("Panel  query,  parm  prof ile_label :  value  =  " ) ; 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext rac t__SVAL  (Inf o . Parm_Ptr ,  1,  Value  (1)  )  ; 

Text_IO .  Put__Line  (Value  ( 1 )  )  ; 
else 

Text_IO .  Put_Line  ("none"); 
end  if; 

---  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  prof  ile„label . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  prof ile_label . 

end  pro f i le__labe X_Event  ; 
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querY—Cance l_Event 


--  Subprogram  SPEC  &  BODY 


procedure  query__cancel_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

— |  EVENT  HANDLER*  Insert  application  specific  information. 

—  I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1.  .TAE.  Tae__Taeconf .  STRINGS  IZE)  ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  query_cancel * 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  query_cancel . 

begin  —  query_cancel_Event 

TAE . Tae_Vin. Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 

Text_IO.Put  ("Panel  query,  parm  query_cancel :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext ract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value (1) ) ; 

Text_IO .  Put__Line  (Value  (1)  )  ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if; 

--  query_cancel 
Destroy_Panel ; 

Panel_sb_main.Connect_Panel  ( TAE. Tae_Wpt  .WPT_P REFERRED)  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  query_cancel . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  query_cancel . 

end  query_cancel_Event ; 


query_he lp_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  query_help__Event 

(  Info  :  in  TAE .  Tae_Wpt .  Event__Context_Ptr  )  is 

PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 
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-- I  NOTES:  (none) 


Value  :  array  (1..1)  of  String  (L  . TAE. Tae__Taeconf  .STRINGS I ZE)  ; 

Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  query_help. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  query_help. 

begin  query_help__Event 

TAE.Tae__Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr,  Count); 

Text__IO . Put  ("Panel  query,  parm  query  help :  value  =  "); 
if  Count  >  0  then 

TAE .Tae_Vm. Vm„Ex tract _SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text_IO *  Put_Line  (Value ( 1 )  )  ; 
else 

Text_IO  .  Put_Line  ( "none" ) ; 
end  if; 

--  query__help 
Destroy_Panel ; 

Panel_sb__main.Connect_Panel  (TAE - Tae_Wpt ,WPT_PREFERRED) ; 

MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  query_help. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  query__help* 

end  query_help_Event ; 


query__import_Event 


Subprogram  SPEC  &  BODY 


procedure  query_import_Event 

(  Info  :  in  TAE .  Tae_Wpt .  Event_Context__Ptr  )  is 

“I  PURPOSE: 

“-I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . . TAE . Tae_Taeconf . STRINGS I ZE) ; 

Count  :  TAE. Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  query_import . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  query  __import . 

begin  --  query_import_Event 

TAE.Tae__Vm.Vm_Extract_Count  (Info .  Parm__Ptr,  Count)  ; 
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Text__IO.Put  ("Panel  query,  parm  query__import :  value  =  "); 
if  Count  >  0  then 

TAE.Tae_Vtn.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 
Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text__IO .  Put_Line  (  " none  "  )  ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  query_import . 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  query_import . 

end  query_import_Event ; 


query_manual_Event 


--  Subprogram  SPEC  &  BODY 


procedure  query__manual_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 „. TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  query_manual . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  query__manual . 

begin  --  query_manual__Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text_IO.Put  ("Panel  query,  parm  query_manual :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext ract_SVAL  ( Inf o . Parm_Ptr,  1,  Value(l) ) ; 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if ; 

--  query_manual 

Connect_Panel  (TAE .TaeJWpt .WPT_INVISIBLE) ; 

Panel_keyword.Connect_Panel  ( TAE . Tae_Wpt .WPT_VISIBLE) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  query_manual . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  query_jnanual . 

end  query_manual__Event; 
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end  EVENT  HANDLERS 


Di spat ch_I tem 


Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context__Ptr  :  in  TAE .  Tae_Wpt  „  Event_Context_Ptr  )  is 
-- I  NOTES :  (none) 
begin  --  Di spat ch_ Item 

if  TAE «, Tae_Misc  .  s_equal  ( "prof ile_label" ,  User_Context_Ptr .  Parm_Name)  then 
prof  ile__l  abel_E  vent  (User_Context_Ptr )  ; 
elsif  TAE  <,Tae_Misc  .  s_equal  ( "query_cancel"  ,  User__Context__Ptr .  Parm„Name) 

then 

query_cancel_Event  (User_Context__Ptr)  ; 
elsif  TAE « Tae_Misc .  s^eqnal  ( "query_help" ,  User__Context_Ptr .ParinJName)  then 
query_help_Event  (User_Context_Ptr ) ; 
elsif  TAE .  Tae_Misc .  s_equal  (  "query„import "  ,  User_Context_Ptr  „  Parm_Name) 

then 

query_import_Event  (User_Context_Ptr )  ; 
elsif  TAE <,  Tae_Misc  .  s_equal  ( "query_manual" ,  User_Context_Ptr .  Parm__Name) 

then 

query__manual_Event  (User_Context_Ptr )  ; 
end  if ; 

end  Di spat ch_I tem; 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line* 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line, 

end  Panel_query; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE  * ] 

--  ***  File:  pan„sb_main_s.a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


************************************************************************** 
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* 

*  Panel_sb_main  --  Package  SPEC 

* 


with  TAE; 
with  XJWindows; 

package  Panel__sb_main  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  sb_main 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  E vent _Cont ext  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) , 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED: 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  sb_main 


CHANGE  LOG: 

4 -Mar- 9 6  TAE 


Generated 


Info  :  TAE  ,Tae__Wpt  ,Event_Context_Ptr;  --  panel  information 


Initialize__Panel 


Subprogram  SPEC 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE ,Tae_Co . Collect ion_Ptr  ) ; 


--  TAE  Collection  read  from 
--  resource  file 


PURPOSE : 

This  procedure  initializes  the  Info, Target  and  Info, View  for  this  panel 


--I  EXCEPTIONS: 

--I  TAE ,UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
--I  TAE ,  Tae__Co ,  NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
I  Collection__Read 


NOTES : 


(none) 


261 


Cr eat e_Pane 1 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT__P  REF  ERRED ; 

Re lat i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows  .Null_Window  ); 


—  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  tbis  X  Window.  Null_Window 
—  uses  the  root  window. 


— |  PURPOSE: 

—  I  This  procedure  creates  this  panel  object  in  the  specified  Panel__State 
-- j  and  stores  the  panel  Id  in  Inf o . Panel_Id . 


EXCEPTIONS  s 


--  j  TAE .UNINITIALIZED__PTR  is  raised  if  the  panel  is  not  initialized 
—  I  TAE . TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


NOTES  * 


(none) 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

:  =  TAE .  Tae__Wpt .  WPT_PREFERRED  ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X„Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  NullJWindow 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--- 1  in  the  specif  iec  Panel_State  and  stores  the  panel  Id  in 
--]  Info .Panel_Id. 

—  I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

-- [  in  this  case,  Relative_Window  is  ignored. 


EXCEPTIONS  s 
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—  I  TAE . UNINITIAL I ZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 

-- I  not  initialized 

—  I  TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 

-- I  created 

-- I  TAE . Tae_Wpt .BAD_S TATE  is  raised  if  the  panel  exists  and  the 
-- I  Panel_State  is  an  invalid  state 


NOTES : 


(none) 


Dest  r  oy__Pane  1 


--  Subprogram  SPEC 


procedure  Destroy_Panel; 


--[  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--!  EXCEPTIONS: 

—  I  TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid  id. 


--|  NOTES: 

-- I  Inf o • Panel_Id  is  set  to  TAE .NULL_PANEL__ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispat ch_Item 


--  Subprogram  SPEC 


procedure  Di spat ch__I tern 

(  User_Context_Ptr  —  Wpt  Event  Context  for  a  PARM 

:  in  TAE . Tae_Wpt . Event_Context_Ptr  );  --  event. 


--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User__Context_Ptr 


EXCEPTIONS  j 


--I  Application-specific 
—  I 

--I  NOTES:  (none) 


end  Panel_sb_main; 
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--  ***  T&E  Plus  Code  Generator  version  V5 . 3  [Merge  Tokens  DO  NOT  DELETE * ] 

--  ***  File:  pan_sb_main_b . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 

_  ************************************************************************** 
_  _  * 

*  Panel_sb_main  --  Package  BODY 

_  * 

************************************************************************** 

with  TAE;  use  TAE; 
with  Text__IO; 
with  Global; 

--  One  "with"  statement  for  each  connected  panel* 
with  Panel__maintain; 
with  Pane l_query ; 

--  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line* 

--  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 

package  body  Panel__sb_main  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event  * ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  sb_main 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items : 
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--I  help_button,  main_label,  quit_button,  sb__maint_button, 

-- |  sb_query_button 

—  I 

--I  CHANGE  LOG: 

--I  MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line. 

-- I  4-Mar-96  TAE  Generated 

--I  MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE  .  Tae__Co  .  Collect ion_Ptr  )  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  : =  new  TAE . Tae_Wpt . Event_Context ; 

Inf o .Collection  :=  Collect ion_Read; 

TAE . Tae__Co . Co_Find  (Info .Collection,  "sb_main__v" #  Info. View); 

TAE . Tae_Co . Co_F ind  ( Info . Collection,  ”sb_main_t " ,  Inf o . Target ) ; 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 

When  TAE.UNINITIALIZED„PTR  => 

Text_IO . Put_Line  ( "Panel_sb_main . Xnitialize_Panel :  " 

&  MCollection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text__IO .  Put^Line  (  "Panel_sb_main.  Initialize__Panel :  " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 
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Create_Panel 


-  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt^Flags 

:  =  TAE .  TaeJWp  t .  WPT_PREFERRED  ; 

Relative_Window 

:  in  X__Windows  .Window 

: =  X_Windows .Null_Window  )  is 

-- I  NOTES s  (none) 

--  MERGE  NOTE:  Add  declarations  for  Create_Panel  BELOW  this  line. 
MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  --  Create_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE .  Tae__Wpt .  Wpt_NewPanel 


Display_Id 

=  > 

Global . Def ault„Display_Id 

Data__Vm 

=  > 

Info .Target , 

View_Vm 

=  > 

Info  .View, 

Relative_Window 

=  > 

Relative_Window, 

User_Context 

=  > 

Info, 

Flags 

=  > 

Panel_State, 

Panel_Id 

=  > 

Info . Panel_Id  ); 

else 

Text_XO . Put_Line  ("Panel  (sbjnain)  is  already  displayed."); 
end  if; 

--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Pane l_sb_ma in . Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE . TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_sb_main . Create_Panel :  " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel; 
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Connect_Panel 


Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

;  in  TAE .  Tae__Wpt .  Wpt__Flags 

:=  TAE  .  Tae__Wpt  .WPT_P REFERRED ; 

Relat ive_Window 

:  in  X_Windows .Window 

:  =  X_Windows .Null_Window  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect__Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect_Panel 

if  Info.Panel_Id  =  Tae  .Null_Panel__Id  then 
Create_Panel 

{  Re lat i ve_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE . Tae_Wpt .Wpt_SetPanelState  (Inf o . Panel_Id,  Panel_State) ; 
end  if; 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect_J?anel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO .  Put__Line  (  "  Panel_sb_main .  Connect__Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 
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--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line* 
begin  --  Destroy_Panel 

TAE  *  Tae_Wpt .Wpt_PanelErase ( Info . Panel_Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy^Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line* 

exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text__IO  *  Put_Line  (  "  Panel„_sb_main .  Destroy_Panel :  " 

&  "Info.Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

--  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy__Panel; 


r  +  +  +  +  +  4'4'  +  + 


--  begin  EVENT  HANDLERS 


help__button_Event 


--  Subprogram  SPEC  &  BODY 


procedure  help_button„Event 

(  Info  :  in  TAE .  Tae_Wpt .  Event__Context_Ptr  )  is 

PURPOSE: 

-- |  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

-- [  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE . Tae_Taeconf . STRINGS I ZE) ; 

Count  :  TAE . Taeint ; 

---  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  help_button. 
---  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  help__button. 

begin  --  help_button_Event 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr,  Count) ; 

Text_IO.Put  ("Panel  sb_main,  parm  help_button:  value  =  " )  ; 
if  Count  >  0  then 
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TAE . Tae_Vm.Vm_ExtractSVAL  ( Inf o . Parm_Ptr,  1,  Value(l)); 
Text_IO . Put_Line  (Value ( 1 )  )  ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

—  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  help_button. 
MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  help_button . 

end  help_button„Event ; 


main_label_Event 


--  Subprogram  SPEC  &  BODY 


procedure  main_label_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  main_label. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  main_label. 

begin  --  main__label_Event 

TAE . Tae__Vm . Vm__Extract_Count  (Inf o .Parm_Ptr7  Count)  ; 

Text_IO.Put  ("Panel  sb__main,  parm  main__label:  value  =  "); 
if  Count  >  0  then 

TAE .  Tae__Vm .  Vm_Ext  ract_SVAL  ( Inf  o  .  Parm_Ptrr  1,  Value(l)); 

Text  IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put _ Line  ( " none " ) ; 

end  if; 

MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  main_label. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  main_label. 

end  main_label_Event; 


quit_button_Event 


--  Subprogram  SPEC  &  BODY 
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procedure  guit__button_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--1  PURPOSE : 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

-- |  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1. . TAE .Tae„Taeconf .STRINGSIZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  quit_button. 
MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  quit_button. 

begin  —  quit_button_Event 

TAE  .  Tae_Vm .  Vm_Extract__Count  ( Inf  o  .  Parm_Ptr,  Count); 

Text_IO. Put  ("Panel  sb„main,  parm  quit__button:  value  =  " )  ; 
if  Count  >  0  then 

TAE . Tae_Vm. Vm_Extract_SVAL  (Inf o . Parm_Ptr,  1,  Value(l)); 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text„IO .  Put__Line  (  "none  "  )  ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  quit_button. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  quit_button. 

end  quit_button_Event; 


sb_ma int_but t  on_E vent 


Subprogram  SPEC  &  BODY 


procedure  sb_maint__button_Event 

(  Info  :  in  TAE .  Tae_Wpt  o  Even t_Context__Ptr  )  is 

-- |  PURPOSE: 

|  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 

Count  :  TAE . Tae int ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  sb_maint_button 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sb_maint_Jbutton 
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begin  --  sb_maint_button_Event 

TAE . Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count ) ; 

Text_IO.Put  ("Panel  sb_main,  parm  sb__maint_button :  value  =  " ); 
if  Count  >  0  then 

TAE . Tae_Vm. Vm_Extract_SVAL  ( Inf o . Parm_Ptr,  1,  Value(l)); 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text„IO . Put_Line  ( "none" ) ; 
end  if ; 

-  -  sb_maint__button 

Panel__maintain . Connec t_Panel  ( TAE .  Tae_Wpt .  WPT_P REFERRED )  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  sb__maint_button. 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  sb_maint_button. 

end  sb__maint__button_Event  ; 


sb_query_bu 1 1 on_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  sb_query_button_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

-- I  PURPOSE: 

--I  EVENT  HANDLER*  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE .Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  sb_query_button 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sb_query__button 

begin  --  sb__query„button_Event 

TAE.Tae_Vm.Vm_Extract_Count  (Inf o . Parm_Ptr,  Count) ; 

Text_IO.Put  ("Panel  sb_main,  parm  sb_query_button :  value  =  " ) ; 
if  Count  >  0  then 

TAE . Tae  Vm. Vm_Extract__SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none" ) ; 
end  if; 

--  sb_query__button 
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Panel_query. Connect _Panel  (TAE  * Tae_Wpt .WPT_PREFERRED) ; 

--  MERGE  NOTE;  Add  code  BELOW  this  line  for  parm:  sb_query_Jbutton . 
--  MERGE  NOTE;  Add  code  ABOVE  this  line  for  parm;  sb_query__button * 

end  sb_query_button_Event; 


--  end  EVENT  HANDLERS 


Dispatch_Item 


Subprogram  BODY 


procedure  Dispatch_Item 

(  User„Context_Ptr  ;  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 
-- I  NOTES;  (none) 
begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("help^utton",  User_Context_Ptr .  Parm_Name)  then 
help_button_Event  (User_Context_Ptr)  ; 

elsif  TAE . Tae_Misc  .  s_equal  ( ,,main_label,, ,  User__Context_Ptr  „  Parm„.Name)  then 
main_label_Event  (User_Context_Ptr) ; 
elsif  TAE  .  Tae_Misc .  s_equal  (  "quitjDutton"  ,  User_Context_Ptr .  Parm__Name ) 

then 

quit__button_Event  (User_Context_Ptr) ; 

elsif  TAE .  Tae_Misc „  s_equal  (  "sb_maint__button"  ,  User__Context__Ptr .  Parm_Name) 
then 

sb_maint_button_Event  (User_Context_Ptr) ; 
elsif  TAE .  Tae_Misc  „  s_equal  (  "  sb_query__button"  ,  User_Context_Ptr .  Parm_Name) 
then 

sb_query_button_Event  (User_Context_Ptr )  ; 
end  if; 

end  Dispatch_Item; 


--  MERGE  NOTE;  Add  additional  code  BELOW  this  line. 

--  MERGE  NOTE;  Add  additional  code  ABOVE  this  line. 

end  Panel_sb_main; 

--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token;  DO  NOT  DELETE .  ] 
--  ***  File:  pan_sdetail_s . a 
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--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

__  ***  Application:  CAPS  Software  Base 


* 

*  Panel__sdetail  --  Package  SPEC 

* 


with  TAE; 
with  X_Windows; 

package  Panel__sdetail  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  sdetail 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  sdetail 


CHANGE  LOG: 
4 -Mar- 9 6 


TAE 


Generated 


Info  :  TAE . Tae_Wpt . Event__Context_Pt  r ;  --  panel  information 


Initial ize_Panel 


Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection__Read  --  TAE  Collection  read  from 

:  in  TAE .Tae_Co .Collect ion_Ptr  );  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 

—  I 

--I  EXCEPTIONS: 
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-- !  TAE.UNINITIALIZED_PTR  is  raised  if  Collect ion_Read  not  initialized 
-- 1  TAE . Tae_Co * NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
-- 1  Collection_Read 

--I  NOTES:  (none) 


Create__Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel__State 

:  in  TAE  *  Tae_Wpt » Wpt_Flags 

: =  TAE . Tae_Wpt *  WPT_PREFERRED ; 

Re 1 at i ve_Window 

:  in  X__Windows  .Window 

:=  X„Windows .NullJWindow  ); 


--  Flags  sent  to  Wpt_NewPanel * 


--  Panel  origin  is  offset  from 
--  this  X  Window*  Null__Window 
--  uses  the  root  window* 


PURPOSE : 


--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
--I  and  stores  the  panel  Id  in  Inf o * Panel„Id * 


-- I  EXCEPTIONS: 

--I  TAE *UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE  *  TAE_FAIL  is  raised  if  the  panel  could  not  be  created 

|  NOTES:  (none) 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE  *  Tae_Wpt . Wpt_Flags 

: =  TAE  *  Tae_Wpt  *  WPT_PREFERRED ; 

Re lat i ve_Window 

:  in  X_Windows  .Window 

:=  X_Windows *Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window*  Null_Window 
--  uses  the  root  window. 


—  I  PURPOSE : 

--I  If  this  panel  doesn*t  exist,  this  procedure  creates  this  panel  object 
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in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info . Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
In  this  case,  Relative_Window  is  ignored. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  from  Create„Panel  if  the  panel  is 
not  initialized 

TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE .  Tae_Wpt .  BAD__S  TATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES:  (none) 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel; 


PURPOSE : 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid  id. 
NOTES : 

Inf o . Pane l_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  Wpt  Event  Context  for  a  PARM 

:  in  TAE . TaeJWpt . Event_Cont ext_Ptr  ) ;  - -  event . 

--I  PURPOSE: 

-- I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
—  I 

--I  EXCEPTIONS: 


275 


-- I  Application-specific 
--I 

--I  NOTES:  (none) 


end  Panel_sdetail; 

***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 
--  ***  File:  pan_sdetail_b . a 

__  ***  Generated:  Feb  28  14:56:42  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


_  ************************************************************************** 

_  -  * 

*  Panel__sdetail  --  Package  BODY 

_  * 

_ _  ************************************************************************** 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 

use  Text__io,  Global; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_opdetail; 
with  Pane l__sdet ail; 

--  MERGE  NOTE:  Add  additional  "with"s  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 


package  body  Panel_sdetail  is 


NOTES: 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event" . 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  sdetail 

The  following  WorkBench  operations  will  also  cause  regeneration: 
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An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item’s  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items : 

sdetail_cancel,  sdetail_help,  sdetail_next ,  sdetail_ok, 

s i g_di splay,  si g_ list,  si g_name_key in 


CHANGE  LOG: 
MERGE  NOTE:  Add 
2 8 -Feb- 9 6  TAE 

MERGE  NOTE:  Add 


Change  Log  entries 
Generated 
Change  Log  entries 


BELOW  this  line . 
ABOVE  this  line . 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initial  ize_JPanel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE . Tae_Co .Collect ion_Ptr  )  is 
NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Initialize_Panel  ABOVE  this  line. 

begin  --  Initialize__Panel 

Info  : =  new  TAE . TaeJWpt . Event_Context ; 

Inf o .Collection  :=  Collect ion_Read; 

TAE .  Tae__Co .  Co__Find  ( Inf  o .  Collect  ion,  "  sdetail__v" ,  Info.View); 
TAE.Tae_Co.Co_Find  (Inf o .Collection,  "sdetail_t".  Info. Target) ; 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text__IO .  Put__Line  (  "Panel_sdetail .  Initialize_Panel :  " 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( "Panel_sdetail . Init ialize„Panel :  " 
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&  11  (View  or  Target)  not  in  Collection.  " )  ; 
raise; 

end  Initialize„Panel; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 

(  Panel_State 

:  in  TAE .  Tae_Wpt . Wpt_Flags 

:  =  TAE . Tae_Wpt .WPT_P  REFERRED; 

Re la t i  veJWindow 

:  in  X_Windows .Window 

:  =  X_Windows .NullJWindow  )  is 

— |  NOTES :  (none) 

--  MERGE  NOTE :  Add  declarations  for  Create_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  --  Create_Panel 

if  Info.Panel_Id  =  Tae .Null„Panel_Xd  then 
TAE .  Tae_Wpt .  Wpt_NewPanel 

(  Displayed  =>  Global .  Def  ault_Display__Xd, 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User__Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =  >  Inf o . Panel_Id  ); 

else 

Text_IO . Put_Line  ("Panel  (sdetail)  is  already  displayed."); 

end  if; 

--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 

—  MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 

exception 

when  TAE .UNINITXALXZED_PTR  => 

Text_IO.  Put_Line  (  "Panel_sdetail  .Create__Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE . TAE_FAIL  => 

Text_IO .  Put_Line  ( "  Panel_sdetail .  Create_Panel :  " 
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Subprogram  BODY 


&  "Panel  could  not  be  created."); 
raise ; 

end  Create_Panel; 


Connect  Panel 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: s  TAE . TaeJWpt . WP T_P REFERRED; 

Relative_Window 

:  in  X_Windows  .Window 

:=  XJWindows .Null_Window  )  is 

--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 


--  ADDED  By  RUEY-WEN  (VINCENT)  HONG  960228 


Dummy : Boo lean ; 

S_Sig__Keep_vec  :  TAE .  S_vector  ( 1 .  .  10 )  ; 


begin  --  Connect__Panel 

if  Inf o . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  RelativeJWindow, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE .  Tae_Wpt . Wpt_SetPanelState  ( Inf  o .  Pane l__Id,  Panel_State) ; 
end  if; 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect__Panel  ABOVE  this  line. 


--  ADDED  By  RUEY-WEN  (VINCENT)  HONG  960228 


TAE . Tae_Wpt . Wpt__SetPanelState  ( Inf o .  Panel_Id,  Panel__State)  ; 
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S_Sig„Keep_vec  :=  (others=>  new  String ( 1 .  . TAE . Tae_Taeconf . STRINGSIZE) ) ; 

S_Sig_Keep_vec  : =  (others=>  new  String ( 1 .. 1) ) ; 

for  Count  in  1  .  .  10  loop 

S_Sig_Keep_vec (Count ) .all  :=  Sig_Keep_vec (Count ) ; 
end  loop ; 

t  ext__i  o  .  newl  ine ; 
if  Sig_Keep_vec (1)  =  "A"  then 
text_io . put ( " I  got  A!” ); 
t ext_io . new_l ine ; 
end  if; 

if  Sig_Keep_vec (2)  =  "B"  then 
text_io .  put  ( 11 1  got  B!"); 
text_io  .new_line; 
end  if; 

if  Sig__Keep_vec  (3)  =  "C"  then 
text„io .put ( "I  got  C!"); 
t  ext_i o . new_l ine ; 
end  if; 

if  Sig_Keep_vec (4)  =  "D"  then 
text_io .put ( "I  got  D!"); 
text_io „new_line; 
end  if; 


TAE .  Tae_Wpt  .Wpt_SetStringConstraints  ( Inf  o .  Panel__Id,  "sig__list "  ,  taeint  (10)  ,  S__Si 
g_Keep_Vec ) ; 

Dummy  s  =TAE  .  Tae_Wpt  .Wpt_Pending; 


exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO  o  Put_Line  ( " Panel_sdetail . Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel; 


Destroy_Panel 


Subprogram  BODY 
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procedure  Destroy_Panel  is 
--I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy__Panel 

TAE . Tae_Wpt . Wpt^PanelErase (Info . Panel_Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy__Panel  ABOVE  this  line. 

exception 

when  TAE  .  Tae__Wpt .  BAD_PANEL__ID  => 

Text__IO .  Put_Line  ( "Panel_sdetail . Destroy_Panel :  " 

&  "Info .Panel_Id  is  an  invalid  id."); 
raise ; 

when  TAE  .  Tae_Wpt .  ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

--  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy_Panel; 


I-++++ 


--  begin  EVENT  HANDLERS 


sdetail__cancel_Event 


Subprogram  SPEC  &  BODY 


procedure  sdetail_cancel_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

—  I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 .. TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parra:  sdetail_cancel . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sdetail_cancel . 
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begin  --  sdetail_cancel_Event 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 

Text_IO.Put  ("Panel  sdetail,  parm  sdetail_cancel :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext  ract_SVAL  (Inf o .  Parm__Ptr,  1,  Value  (1)  )  ; 

Text_IO . Put„Line  (Value ( 1 ) ) ; 
else 

Text„IO . Put_Line  ( "none" ) ; 
end  if ; 

sdetail__cancel 
Destroy_Panel ; 

Panel„opdetail .Connect_Panel  (TAE .  Tae__Wpt  .WPTJP  REFERRED)  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  sdetail_cancel . 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  sdetail_cancel . 

end  sdetail_cancel_Event ; 


s  de  t  a i l_he lp_E vent 


--  Subprogram  SPEC  &  BODY 


procedure  sdetail_help_Event 

(  Info  :  in  TAE  „  Tae_Wpt .  Event__Context_Ptr  )  is 

-- I  PURPOSE: 

l  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

-- |  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE . Tae_Taeconf . STRINGSIZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  sdetail_help . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sdetail_help . 

begin  --  sdetail „help_Event 

TAE . Tae_Vm . Vm_Extract_Count  ( Info „ Parm_Ptr,  Count); 

Text_IO . Put  ("Panel  sdetail,  parm  sdetail_help :  value  =  "); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Extrac t_SVAL  (Info .Parm_Ptr,  1,  Value(l)); 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text _IO . Put_L ine  ( " none " ) ; 
end  if; 
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--  sdetail_help 
Destroy_Panel ; 

Pane l_opde tail .Connect^ Panel  ( TAE . Tae_Wpt . WPT_PREFERRED ) ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  sdetail_help . 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  sdetail_help . 

end  sdetail__help_Event  ; 


sdetail_next__Event 


--  Subprogram  SPEC  &  BODY 


procedure  sdetail_next_Event 

(  Info  :  in  TAE .Tae__Wpt  .Event _Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER .  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1. .TAE. Tae_Taeconf. STRINGS IZE) ; 

Count  :  TAE . Taeint ; 

MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  sdetail_next , 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sdetail_next . 

begin  --  sdetail_next_Event 

TAE .  Tae_Vm. Vm_Extract_Count  ( Info  .  Parm__Ptr ,  Count )  ; 

Text__IO.Put  ("Panel  sdetail,  parm  sdetail__next :  value  =  " ); 
if  Count  >  0  then 

TAE . Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( "none " ) ; 
end  if; 

--  sdetail_next 
Destroy_Panel ; 

Connect_Panel  (TAE  .Tae_Wpt  .WPT__PREFERRED)  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  sdetail_next . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  sdetail_next . 

end  sdetail_next_Event; 
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sde  t  a  i  l__ok„E  vent 


--  Subprogram  SPEC  &  BODY 


procedure  sde tail_ok_E vent 

(  Info  :  in  TAE .  Tae__Wpt .  Event__Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER .  Insert  application  specific  information, 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . , TAE „ Tae_Taeconf . STRINGSIZE ) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  sdetail_ok. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sdetail_ok. 

begin  --  sdetail_ok_Event 

TAE . Tae__Vxn . Vm_Extract__Count  ( Info  , ParmJPtr ,  Count)  ; 

Text_IO . Put  ("Panel  sdetail,  parm  sdetail_ok:  value  =  " ) ; 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 

Text„IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text__IO .  Put_Line  ( "  none  "  )  ; 
end  if; 

sdetail_ok 
Destroy_Panel ; 

Panel_opdetail  .Connect_Panel  ( TAE  .  Tae_Wpt .  WPT__P  REF  ERRED )  ; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  sdetail_ok . 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  sdetail_ok. 

end  sdetail_ok_Event; 


sig_display_Event 


Subprogram  SPEC  &  BODY 


procedure  sig_display_Event 

(  Info  :  in  TAE .  Tae_Wpt .  Event__Context_Ptr  )  is 

--I  PURPOSE: 

-- |  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

-- I  NOTES:  (none) 
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Value  :  array  (1..1)  of  String  (1. .TAE .Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  sig_display. 
—  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sig_display. 

begin  --  sig__display_Event 

TAE . Tae__Vm . Vm_Ext ract_Count  (Inf o * Parm_Ptr,  Count); 

Text_IO.Put  ("Panel  sdetail,  parm  sig__display :  value  =  " )  ; 
if  Count  >  0  then 

TAE . Tae_Vm.  Vm_Extract_SVAL  ( Inf o . Parm_Ptr,  1,  Value(l)); 

Text_IO . Put_Line  (Value (1) ) ; 
else 

Text„IO . Put_Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  sig_display. 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  sig_display. 

end  sig_display_Event; 


s i g_l i s t _E ven t 


--  Subprogram  SPEC  &  BODY 


procedure  s ig_l i s t_Event 

(  Info  :  in  TAE .  Tae_JWpt .  Event__Context__Ptr  )  is 

—  I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--i  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1. . TAE . Tae_Taeconf . STRINGS IZE) ; 
Count  :  TAE . Taeint ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  sig_list. 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sig__list. 


--ADDED  By  RUEY-WEN  (VINCENT)  HONG  960228 


S_Value  :  TAE . s_vector ( 1 . . 1 ) ; 
begin  --  sig_list_Event 

TAE.Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count) ; 
Text_IO.Put  ("Panel  sdetail,  parm  sig_list:  value  =  "); 
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if  Count  >  0  then 

TAE - Tae_Vm.  Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 
Text_IO . Put_Line  (Value ( 1 ) ) ; 
else 

Text_IO . Put_Line  ( " none " ) ; 
end  if; 


--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  sig_list. 
MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  sig_list. 


-“ADDED  By  RUEY-WEN  (VINCENT)  HONG  960228 

SJValue(l)  :=  new  String  (1. . TAE. Tae_Taeconf .STRINGS IZE) ; 

S_Value (1) .all  :=  Value (1); 

TAE.TAE_Vm.Vm_SetString_Vec  (Info . target,  nsig__display" ,  1,  S__Value, 
TAE . TAE_Vm . P__Update ) ; 

TAE .  TAE_Wpt .  Wpt_ParmUpdate  ( Info .  Panel_Id7  "  sig^display "  )  ; 

end  sig_list_Event ; 


s  ig_name__key  in_Event 


Subprogram  SPEC  &  BODY 


procedure  sig_name_keyin__Event 

(  Info  :  in  TAE .Tae_Wpt  .Event _Context__Ptr  )  is 

--I  PURPOSE: 

--- 1  EVENT  HANDLER.  Insert  application  specific  information. 

—  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . . TAE . Tae_Taeconf . STRINGS IZE) ; 

Count  :  TAE.Taeint; 

MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  sig_name_keyin. 
MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  sig_name_keyin <, 

begin  --  sig_name_keyin__Event 

TAE.Tae_Vm.Vm_Extract_Count  (Inf  o  .Parm_Ptr,  Count) ; 

Text_IO . Put  ("Panel  sdetail,  parm  sig_name_keyin:  value  =  " ); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Ext ract_SVAL  (Inf o . Parm_Ptr,  1,  Value (1) ); 

Text__IO .  Put_Line  (Value  ( 1 )  )  ; 
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else 

Text_IO , Put__Line  ( "none " ) ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  sig_name_keyin . 
--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  sig_name_keyin . 

end  sig_name_keyin_Event; 


--  end  EVENT  HANDLERS 


Di spat ch_I tern 


Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 
-- I  NOTES:  (none) 
begin  --  Dispatch_Item 

if  TAE . Tae_Misc . s_equal  ( "sdetail_cancel" ,  User_Context_Ptr . Parm_Name) 

then 

sdetail_cancel_Event  (User_Context_Ptr) ; 
elsif  TAE . Tae_Misc . s_equal  ( "sdetail_help" ,  User_Context_Ptr . Parm_Name) 

then 

sdetail_help_Event  (User_Context_Ptr)  ; 
elsif  TAE *  Tae__Misc  .  s_equal  ( "  sdetail_next "  ,  User__Context_Ptr .  Parm_Name ) 

then 

sdetail_next_Event  (User__Context_Ptr)  ; 
elsif  TAE  *  Tae_Misc  *  s_equal  ( "sdetail_ok" ,  User_Context_Ptr .Parm_Name)  then 
sdetail_ok_Event  (User_Context_Ptr)  ; 
elsif  TAE . Tae_Misc . s_equal  ( "sig_di splay" ,  User_Context_Ptr . Parm_Name) 

then 

sig_display_Event  (User_Context__Ptr)  ; 
elsif  TAE .  Tae__Misc  .  s_equal  ("sig_list"/  User__Context__Ptr .  Parm_Name)  then 
sig_list_Event  (User_Context_Ptr)  ; 
elsif  TAE . Tae_Misc . s_equal  ( " sig_name_keyin" , 

User_Cont ext_Pt r . Parm_Name )  then 

sig_name_keyin_Event  (User__Context_Ptr)  ; 
end  if; 

end  Dispatch_Item; 
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--  MERGE  NOTE:  Add  additional  code  BELOW  this  line, 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

end  Panel_sdetail ; 


--  ***  TAE  Plus  Code  Generator  version  V5 . 3  [Merge  Token:  DO  NOT  DELETE.] 
--  ***  File:  pan_j3elect__l_s .  a 

***  Generated:  Mar  4  14:14:09  1996 

~~  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


* 

*  Panel_select_l  --  Package  SPEC 

* 


with  TAE; 
with  X_Windows ; 

package  Panel_select_l  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  select_l 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel’s  Event_Context  (Info)  is  provided. 

It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

INITIALIZATION  EXCEPTIONS:  (none) 

NOTES:  (none) 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel:  select_l 


CHANGE  LOG: 
4 -Mar- 9 6 


TAE 


Generated 


Info  :  TAE . Tae_Wpt . Event_Context_Ptr ;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 
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procedure  Initialize_Panel 
(  Collection__Read 

:  in  TAE.Tae__Co.Collection_Ptr  ); 


--  TAE  Collection  read  from 
--  resource  file 


PURPOSE : 

This  procedure  initializes  the  Info. Target  and  Info. View  for  this  panel 
EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
Collect ion^Read 

NOTES:  (none) 


Create__Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_jState 

:  in  TAE . Tae_Wpt . Wpt_Flags 

:  =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re 1 at i ve_Window 

:  in  X_Windows .Window 

:=  X__Windows  .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE : 


—  I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
-“I  and  stores  the  panel  Id  in  Inf o . Panel_Id . 


-- |  EXCEPTIONS: 

--I  TAE .UNINITIALIZED__PTR  is  raised  if  the  panel  is  not  initialized 
--1  TAE . TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


NOTES : 


(none) 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 
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:  in  TAE .  Tae__Wpt .  Wpt_Flags 

: =  TAE . Tae_Wpt  * WPT_PREFERRED ; 

Re la t i ve_Window 

:  in  X_Windows .Window 

: =  XJWindows.Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE : 

If  this  panel  doesn’t  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info . Panel_Id . 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 

In  this  case,  Relative__Window  is  ignored. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE . TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 

NOTES  %  (none) 


Destroy__Panel 


Subprogram  SPEC 


procedure  Destroy_Panel; 


PURPOSE : 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS  s 

TAE.Tae_Wpt . BAD_PANEL„ID  is  raised  if  Inf o . Panel_Id  is  an  invalid  id. 
NOTES  : 

Info . Panel_Id  is  set  to  TAE . NULL_PANEL_ID ,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispat ch_Item 


--  Subprogram  SPEC 
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procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE . Tae_Wpt . Event_Context_Ptr  );  --  event. 


PURPOSE : 

This  procedure  calls  the  Event  Handler  specified  by  User„Context_Ptr 

EXCEPTIONS : 

Application- specific 

NOTES:  (none) 


end  Panel__select_l; 

—  ***  Tae  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

--  ***  File:  pan_select_l_b . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

—  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


—  ************************************************************************** 
_  * 

*  Panel_select_l  --  Package  BODY 

_  * 

—  ************************************************************************** 
with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 


--  One  "with11  statement  for  each  connected  panel. 

--  MERGE  NOTE;  Add  additional  "with"s  BELOW  this  line. 
--  MERGE  NOTE;  Add  additional  "with"s  ABOVE  this  line. 

package  body  Panel_select_l  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

For  best  automatic  code  merging  results,  you  should  put  as  many 
modifications  as  possible  between  the  lines  of  the  MERGE  NOTE  comments. 
Modifications  outside  the  MERGE  NOTES  will  often  merge  correctly,  but 
must  sometimes  be  merged  by  hand.  If  the  modifications  cannot  be 
automatically  merged,  a  reject  file  (*.rej)  will  be  generated  which 
will  contain  your  modifications. 

REGENERATED: 
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The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel :  select_l 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item’s  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 

An  item's  connection  information  changed 
For  the  panel  items: 
select_l_disp 

CHANGE  LOG: 

MERGE  NOTE:  Add  Change  Log  entries  BELOW  this  line* 

4 -Mar- 9 6  TAE  Generated 

MERGE  NOTE:  Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


Initialize_Panel 


Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE. Tae_Co. Collect ion_Ptr  )  is 
--I  NOTES:  (none) 

MERGE  NOTE:  Add  declarations  for  Initialize_Panel  BELOW  this  line. 

---  MERGE  NOTE:  Add  declarations  for  Initialize__Panel  ABOVE  this  line. 

begin  --  Initialize_Panel 

Info  : =  new  TAE . TaeJWpt . E vent _Cont ext ; 

Inf o .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Inf o .Collection,  "select_l_v"  ,  Info. View)  ; 

TAE . Tae__Co  . Co__Find  (Info. Collection,  "select__l_t "  ,  Info . Target )  ; 

MERGE  NOTE:  Add  code  for  Initial! ze_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Initialize_Panel  ABOVE  this  line. 

exception 

when  TAE  .UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( "Panel_select_l . Initial! ze_Panel :  " 

&  "Collection__Read  not  initialized."); 
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raise; 


when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  (  "Panel_select_l .  Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create__Panel 
(  Panel_State 

:  in  TAE . TaeJWpt . Wpt_Flags 

: =  TAE . Tae_Wpt .WPT_PREFERRED; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows  .Null__Window  )  is 

--I  NOTES:  (none) 

—  MERGE  NOTE:  Add  declarations  for  Create„Panel  BELOW  this  line. 
--  MERGE  NOTE:  Add  declarations  for  Create_Panel  ABOVE  this  line. 

begin  --  Create_Panel 

if  Info . Panel_Id  =  Tae .Null  JPanel_Id  then 
TAE .  TaeJWpt .  Wpt_NewPanel 


Display_Id 

=  > 

Global .  Def  ault_Display__: 

Data_Vm 

=  > 

Inf o. Target , 

View_Vm 

=  > 

Info. View, 

Relative_Window 

=  > 

Relat  ive JWindow, 

User_Context 

—  > 

Info, 

Flags 

=  > 

Panel_State, 

Panel_Id 

=> 

Info . Panel_Id  ) ; 

else 

Text_IO.Put_Line  ("Panel  (select_l)  is  already  displayed."); 
end  if; 

--  MERGE  NOTE:  Add  code  for  Create_Panel  BELOW  this  line. 

MERGE  NOTE:  Add  code  for  Create_Panel  ABOVE  this  line. 

exception 

when  TAE.UNINITIALIZED^PTR  => 

Text_IO . Put_Line  ( "Panel_select_l . Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
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raise 


when  TAE.TAE_FAIL  => 

Text_IO . Put _Line  ( "Panel_select_l .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel; 


Connect__Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:  =  X_Windows .Null_Window  )  is 

— I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Connect _Panel  BELOW  this  line. 

MERGE  NOTE:  Add  declarations  for  Connect_Panel  ABOVE  this  line. 

begin  --  Connect_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Xd  then 
Create_Panel 

(  Relative_Window  =>  RelativeJWindow, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE .Tae_Wpt .Wpt_Set Panels tat e  ( Inf o . Panel_Id,  Panel_State) ; 
end  if; 

--  MERGE  NOTE:  Add  code  for  Connect_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Connect  Panel  ABOVE  this  line. 

exception 

when  TAE . Tae_Wpt o BAD_STATE  => 

Text_IO .  Put__Line  (  "Panel_select_l  .Connect_Panel :  " 

Sc  "Invalid  panel  state."); 
raise; 

end  Connect__Panel; 
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Destroy_Panel 


- -  Subprogram  BODY 


procedure  Destroy_Panel  is 
-- I  NOTES:  (none) 

--  MERGE  NOTE:  Add  declarations  for  Destroy__Panel  BELOW  this  line. 

MERGE  NOTE:  Add  declarations  for  Destroy_Panel  ABOVE  this  line. 

begin  --  Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Inf o . Panel„Id) ; 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  BELOW  this  line. 

--  MERGE  NOTE:  Add  code  for  Destroy_Panel  ABOVE  this  line. 

exception 

when  TAE  .  Tae_Wpt .  BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Pane l_s elect _J1 . Destroy_Panel :  " 

&  " Info .Pane l__Id  is  an  invalid  id.”); 
raise ; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

--  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy_Panel; 


--  begin  EVENT  HANDLERS 


select_l_disp_Event 


--  Subprogram  SPEC  &  BODY 


procedure  select„l_disp_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

-- I  EVENT  HANDLER .  Insert  application  specific  information. 
—  I 

--!  NOTES:  (none) 
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Value  :  array  (1..1)  of  String  (L. TAE . Tae_Taeconf . STRINGSIZE ) ; 

Count  :  TAE . Tae int ; 

--  MERGE  NOTE:  Add  declarations  BELOW  this  line  for  parm:  select__l_disp . 
--  MERGE  NOTE:  Add  declarations  ABOVE  this  line  for  parm:  select_l_disp * 

begin  --  select_l_disp_Event 

TAE „ Tae_Vm. Vm_Extract_Count  ( Info  * Parm_Ptr/  Count )  ; 

Text_IO,Put  ("Panel  select_l,  parm  select_l_disp :  value  =  " ) ; 
if  Count  >  0  then 

TAE.TaeJVm,Vm__Extract_SVAL  ( Info  * Parm_Ptr ,  1,  Value  (1)  )  ; 

Text_IO o Put_Line  (Value (1) ) ; 
else 

Text__IO .  Put_Line  (  "  none  "  )  ; 
end  if; 

--  MERGE  NOTE:  Add  code  BELOW  this  line  for  parm:  select_l_disp , 

--  MERGE  NOTE:  Add  code  ABOVE  this  line  for  parm:  select_l_disp * 

end  select_l_disp_Event; 


--  end  EVENT  HANDLERS 


Dispatch_Item 


- -  Subprogram  BODY 


procedure  Di spat ch_I tern 

(  User__Context_Ptr  :  in  TAE .  TaeJWpt  .Event_Context_Ptr  )  is 
- “ I  NOTES  s  ( none ) 
begin  —  Dispatch__Item 

if  TAE  •  Tae__Misc  *  s__equal  (  "select__l_disp"  ,  User__Context_Ptr .  Parm_Name)  then 
select_l_disp_Event  (User_Context_Ptr) ; 
end  if ; 

end  Dispatch__Item; 


MERGE  NOTE:  Add  additional  code  BELOW  this  line, 
MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 
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end  Panel_select_l; 


--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE* 3 

--  ***  pile:  sbgui.a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


sbgui 


--  Main  program  BODY 


PURPOSE: 

This  is  the  main  program  of  an  application  generated  by  the  TAE  Plus 
Code  Generator. 

EXCEPTIONS :  ( none ) 


REGENERATED : 

This  file  is  generated  only  once, 
impacting  automatic  code  merge. 


Therefore,  you  may  modify  it  without 


NOTES : 

To  turn  this  into  a  real  application,  do  the  following: 

1.  Each  panel  that  has  event  generating  parameters  is  encapsulated  by 

a  package.  Each  parameter  that  you  have  defined  to  be  "event -generating" , 
has  an  event  handler  procedure  in  the  appropriate  panel's  package  body. 

The  panel's  package  body  is  in  a  file,  named  by  concatenating  the  string 
,,pan_"  with  the  panel  name  (followed  by  "_b.a").  Each  handler  has  a  name 
that  is  a  concatenation  of  the  parameter  name  and  the  string  "_Event" 

Add  application-dependent  logic  to  each  event  handler. 

(As  generated  by  the  Workbench,  each  event  handler  simply  logs  the 
occurrence  of  the  event . ) 

2.  See  the  "TAE  Plus  Ada  Programmer's  Guide"  for  directions  on  how 
to  compile  and  link  this  program. 


ADDITIONAL  NOTES: 

In  TAE  Plus  version  4.1,  every  TAE  Ada  application  caused  the  screen 
to  be  cleared  as  part  of  the  initialization  of  the  tae_termio  package. 
In  TAE  Plus  version  5.0,  the  TAE  Ada  bindings  have  been  changed  so  as 
not  to  clear  the  screen  by  default.  Simply  adding  a  call  to 
TAE.Tae_Termio.T__Clear  will  produce  the  same  results  as  4.1. 


CHANGE  LOG: 

4 -Mar- 9 6  TAE 


Generated 
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with  TAE; 
with  Text_XO; 

with  Global;  --  application  global  variables 

--  PROGRAMMER  NOTE : 

--  add  one  "with"  for  each  resource  file  in  this  application 
with  sbgui_Support ; 

procedure  sbgui  is 

Wpt__Event 
Type„of_WptJEvent 
User_Context_Ptr 
Panel_In_Resource_File 
UNKNOWN_WPT„EVENT 

begin  --  sbgui 

—  permit  upper/lowercase  file  names 
TAE  o  Tae_Misc . F_Force_Lower  (FALSE) ; 

TAE . Tae_Wpt . Wpt_Init  (" " ,  Global „ Def ault_Display_Id) ; 

--  PROGRAMMER  NOTE: 

--  To  enable  scripting,  uncomment  the  following  line.  See  the 
--  taerecord  man  page. 

TAE  *  Tae_Wpt . Wpt_ScriptInit  ("sbgui") ; 

--  initialize  resource  file 
--  PROGRAMMER  NOTE: 

--  For  each  resource  file  in  this  application,  calls  to  the  appropriate 
--  Initialize_All_Panels  and  Create__Initial_Panels  must  be  added. 
sbgui_Support . Initialize_All_Panels ( " /txnp_mnt /users /work2 /vincent /caps9  5/ 
src /combine. work2/ sbgui. res") ; 

sbgui_Support . Create_Init ial_Panels ; 

TAE .  TaeJWpt .  Wpt_NewEvent  ( Wpt__Event )  ; 


EVENT_LOOP : 

while  not  Global . Application_Done  loop 
--  PROGRAMMER  NOTE: 

use  Global .  Set_Application__Done  in  "quit"  event  handler  to  exit  loop 

--  Wait  for  the  next  event 

TAE . Tae_Wpt .Wpt_Next Event 
(  Event  =>  Wpt_Event, 

Etype  =>  Type_of_Wpt„Event  ) ; 

case  Type_of_Wpt_Event  is 


:  TAE . TaeJWpt . Wpt_Eventpt r ; 

:  Tae . Wpt_Eventtype ; 

:  TAE .Tae_Wpt  .Event_Context_Ptr; 
:  Boolean; 

:  Exception; 
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when  TAE.TaeJWpt  .WPT_PARM_EVENT  => 

Panel  event  has  occurred. 

--  PROGRAMMER  NOTE: 

--  You  can  comment  out  the  the  following  "put"  call. 

—  The  appropriate  EVENT_HANDLER  finishes  the  message. 

Text_XO . Put  ( " Event :  WPT_PARM_EVENT ,  " ) ; 

Get  the  user  context  (which  is  stored  in  the  panel  object 
--  when  Wpt_NewPanel  is  called) . 

TAE . Tae_Wpt .  Wpt_J2xtract_Context 
(  Event  =>  Wpt_Event, 

User_Ptr  =>  User_Context_Ptr  ) ; 

--  Get  the  parameter  name 

TAE .  Tae__Wpt .  Wpt_Extract_Parm 
(  Event  =>  Wpt„Event, 

Parm  =>  User_Context_Ptr .  Parm_Name  ); 

--  Get  target  id 

TAE .  Tae__Wpt .  Wpt_Extract_Data 
(  Event  =>  Wpt_Event, 

Data  =>  User_Context_Ptr .Datavm_Ptr  ); 

Find  Vm  parm  object 

TAE .  Tae_Vm .  Vm_Find 

(  Vmid  =>  User_Context_Ptr .Datavm_Ptr, 

Name  =>  User_Context__Ptr .  Parm_Name/ 

Vout  =>  User_Context_Ptr .Parm_Ptr  ) ; 

--  Dispatch  event  to  event  handler 

sbgui_Support . Dispatch^Panel 

(  User_Context_Ptr  =>  User_Context_Ptr , 

Panel_In_Resource_File  =>  Panel_In_Resource_File  ) ; 

if  (not  Pane l_In_Re sour ce_File)  then 

--  PROGRAMMER  NOTE: 

--  For  applications  with  more  than  one  resource  file, 

--  add  a  call  to  Dispatch_Panel  for  each  resource  file. 

Text_IO . Put_Line  ("Unexpected  event  from  wpt!“); 
raise  TAE . Ta e_Wp t . BAD_EVENT_ ID; 

end  if; 
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when  TAE . Tae_Wpt . WPT_F I LE_E VENT  => 

Text_IO * Put_Line  ("No  EVENT_HANDLER  for  event  from  external  source."); 
--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  file  events. 

--  Use  Wpt_AddEvent  and  Wpt_Remove Event  to  register  and  remove 
--  event  sources. 

--  Use  Wpt__Extract_Event Source  and  Wpt_Extract_EventMask  to  get 
--  information  about  the  event  that  occurred. 


when  TAE  .  Tae_Wpt .  WPT_WINDOW__EVENT  => 
null ; 

--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  window  events. 

--  WPTJWINDOW__EVENT  can  be  caused  by  windows  which  you  directly  create 
--  with  X  (not  TAE  panels) ,  or  by  user  acknowledgement  of  a 
--  Wpt_PanelMessage  (therefore  no  default  put_line  statement  is 
--  generated  here) . 

--  You  MIGHT  want  to  use  Wpt_Extract_xEvent_Type  here. 

--  DO  NOT  use  Wpt_Extract_Parm_xEvent  since  this  is  not 
--  a  WPT__PARM_EVENT;  you  may  get  a  "storage  error". 


when  TAE . Tae_Wpt .WPT_TIMEOUT_EVENT  => 

Text__IO  .  Put_Line  (  " STUB :  Event  WPT_TIMEOUT_EVENT "  )  ; 

--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  timeout  events. 

Timeout  events  occur  when  an  application  has  not  received  any 
--  user  input  within  the  interval  specified  by  Wpt__Set  Time  Out . 


when  TAE  » Tae__Wpt .  WPT_TIMER_EVENT  => 

Text_IO . Put_Line  ("No  EVENT_HANDLER  for  timer."); 

--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  timer  events. 

--  Timer  events  occur  on  (or  after)  the  interval  specified  when  the 
--  event  is  registered  using  Wpt_AddTimer .  Use  Wpt_Remove Timer  to 
““  remove  timers. 

--  Use  Wpt_Extract_JTimerId,  Wpt_Extract_TimerRepeat ,  and 
--  Wpt_Extract_Timer Interval  to  get  information  about  the  event 
that  occurred. 


These  are  internal  TAE  events.  The  application  should  never  see 

them. 
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--  when  TAE  .  Tae_Wpt .  WPT__HELP„EVENT  => 

—  when  TAE  .  Tae_Wpt .  WPT__INTERRUPTJEVENT  => 

when  others  => 

raise  UNKNOWN_WPT_EVENT ; 

end  case; 

end  loop  EVENT^LOOP; 

TAE .  TaeJWpt  .Wpt__Finish;  --  close  all  display  connections 
--  PROGRAMMER  NOTE: 

--  Application  has  ended  normally.  Add  application  specific  code  to 
--  close  down  your  application. 

exception 

when  UNKNOWN_WP T_E VENT  => 

Text_IO.Put  ("FATAL  ERROR:  Unknown  Wpt_Next Event  Event  Type:  " ) ; 
Text_IO . Put  ( TAE. Wpt_Event type  '  image  (Type__of_Wpt_Event )  )  ; 

Text_IO . Put_Line  ( "  ...  Forced  exit . " ) ; 

end  sbgui ; 

--  ***  T AE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 

***  File:  sbgui _ creat__init . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

__  ***  Date  .  Mar  5/  1996 

__  ***  Application:  CAPS  Software  Base 


Create_InitialPanels 


- -  Subprogram  SUBUNIT 


separate  (sbgui_Support ) 
procedure  Create_Initial_Panels  is 


NOTES : 

This  subprogram  is  not  in  the  same  file  as  sbgui_Support . a 
for  code  regeneration  purposes.  Therefore  it  is  a  subunit. 

Also  note,  that  the  parent  unit  nwith"ed  in  all  of  the  panel  packages 
for  the  entire  resource  file,  so  this  unit  doesn't  need  to  "with"  in 
any  of  the  panel  packages. 

This  procedure  should  be  called  after  the  panels  in  the  initial  panel 
set  have  been  initialized. 


—  I  REGENERATED : 

--I  The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 
--I  A  panel  is  added  to  the  initial  panel  set 
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A  panel 
For  the  set 
sb_main 


is  deleted  from  the  initial  panel  set 
of  initial  panels; 


CHANGE  LOG; 
MERGE  NOTE; 

4 -Mar- 9 6 
MERGE  NOTE: 


Add  Change  Log  entries  BELOW  this  line, 
TAE  Generated 

Add  Change  Log  entries  ABOVE  this  line. 


--  MERGE  NOTE:  Add  additional  code  BELOW  this  line, 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


begin  --  Create___In.it  ial_Panels 
Panel_sb_main .  Create_J?anel ; 

--  MERGE  NOTE:  Add  additional  code  BELOW  this  line, 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 


end  Create_Initial__Panels; 

--  ***  TAE  Plus  Code  Generator  version  V5,3  [Merge  Token:  DO  NOT  DELETE,] 

--  ***  File:  sbgui_support_s . a 

--  ***  Generated:  Mar  4  14:14:09  1996 

__  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

--  ***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


* 

*  sbgui_Support  --  Package  SPEC 

* 


with  TAE; 

package  sbgui„Support  is 


PURPOSE : 

This  package  encapsulates  the  operations  specific  to  a  resource  file. 
These  subprograms  enable  initialization  of  all  panels ,  displaying 
all  initial  panels,  and  event  dispatching, 

INITIALIZATION  EXCEPTIONS;  (none) 


NOTES:  (none) 

REGENERATED : 

This  file  is  generated  only  once, 
impacting  automatic  code  merge. 


Therefore,  you  may  modify  it  without 


CHANGE  LOG: 

4 -Mar- 9  6  TAE 


Generated 
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In  i  t  i  a  1  i  z  e_A  1 1_JP  ane  1  s 


--  Subprogram  SPEC 


pr oc edure  Ini t ia 1 i z e_Al l_Pane Is 
(  Resource_File 

:  in  String  ) ; 


--  Name  of  resource  file. 


PURPOSE : 

This  procedure  initializes  all  the  panels  in  the  resource  file. 

EXCEPTIONS : 

TAE . TAE_FAIL  is  raised  when  the  resource  file  could  not  be  read 

TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  when  one  of  the  panels  was  not  in 
the  resource  file.  This  could  happen  if  a  panel  was  deleted  from 
the  resource  file  (using  the  WorkBench)  after  the  code  was 
generated. 

NOTES : 

This  procedure  reads  in  the  resource  file  and  initializes  each  panel. 

It  only  needs  to  be  called  once. 


Create_Initial  Panels 


--  Subprogram  SPEC 


procedure  Create__Initial_Panels; 

PURPOSE : 

This  procedure  displays  the  set  of  initial  panels. 
PARAMETERS :  ( none ) 

EXCEPTIONS :  (none ) 

NOTES:  (none) 


Dispatch_Panel 


Subprogram  SPEC 


procedure  Dispatch_Panel 
(  User_Context__Ptr 


Wpt  Event  Context  for  a  PARM 
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event 


:  in  TAE .  Tae_Wpt .  Event_Cont  ext__Ptr ; 


Panel__In_Resource__File 
:  out  Boolean  ) ; 


True,  if  the  PARM  event 
--  occurred  in  one  of  the  panels 
--  of  this  resource  file. 

--  False,  otherwise. 


PURPOSE : 


-- I  This  procedure  dispatches  a  WPT_PARM_EVENT  to  the  appropriate  panel’s 
-- I  Dispatch_Item  routine. 


-- |  EXCEPTIONS: 

-- I  Application-specific 


NOTES : 


(none) 


end  sbgui__Support ; 


--  ***  TAE  Plus  Code  Generator  version  V5.3  [Merge  Token:  DO  NOT  DELETE.] 
--  *  *  *  File:  sbgui_support_b.a 

--  ***  Generated:  Mar  4  14:14:09  1996 

--  ***  Author  :  Ruey-Wen  (Vincent)  Hong 

***  Date  :  Mar  5,  1996 

--  ***  Application:  CAPS  Software  Base 


_  ************************************************************************** 

_ •  * 

*  sbgui_Support  --  Package  BODY 

„  „  * 

_  ************************************************************************** 

with  TAE; 
with  Text^XO; 

--  one  "with"  for  each  panel  in  the  resource  file 

with  Panel_backup_l ; 

with  Panel_create__l; 

with  Panel_delete_l; 

with  Panel_go; 

with  Panel_grnd_eq; 

with  Panel_keyword; 

with  Panel_maintain; 

with  Panel__mbn_kps; 

with  Panel_op_no; 

with  Panel_opdetail; 

with  Panel„query; 

with  Panel_sb_main; 

with  Panel_sdetai.l; 

with  Panel__select_l; 

--  MERGE  NOTE:  Add  additional  "with" s  BELOW  this  line. 

--  MERGE  NOTE:  Add  additional  "with"s  ABOVE  this  line. 

package  body  sbgui_Support  is 
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NOTES:  (none) 


REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this  file: 
A  panel  is  deleted 
A  new  panel  is  added 

A  panel's  name  is  changed  (not  title) 

For  the  panels: 

backup_l,  create_l,  delete__l,  go,  grnd__eq,  keyword,  maintain, 

mbn_kps,  op_.no ,  opdetail,  query,  sb_main,  sdetail,  select_l. 


-i  CHANGE  LOG: 
-I  MERGE  NOTE: 
-I  4 -Mar- 9 6 


Add  Change  Log  entries  BELOW  this  line. 
TAE  Generated 


MERGE  NOTE: 


Add  Change  Log  entries  ABOVE  this  line. 


Creat e_Ini t ial_Pane 1 s 

--  Subprogram  STUB 

procedure  Create_Initial_Panels 

is  separate; 

Initialize_All_Panels 

--  Subprogram  BODY 

_ 

procedure  Initialize_All_Panels 
(  Resource__File 

:  in  String  )  is 

--[  NOTES:  (none) 

Vm_Collection_Read  :  TAE.Tae_Co .Collection_Ptr; 

--  MERGE  NOTE:  Add  additional  declarations  BELOW  this  line. 
--  MERGE  NOTE:  Add  additional  declarations  ABOVE  this  line. 

begin  --  Initialize_All_Panels 

--  MERGE  NOTE:  Add  additional  code  BELOW  this  line.  (1) 

--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line.  (1) 

--  do  one  Co_New  and  Co_ReadFile  per  resource  file 
TAE . Tae_Co . Co_New 
(  Flags  =>  0, 
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Coid  =>  Vm„Collection_Read  ) ; 

--  could  pass  P__Abort  if  you  prefer 
TAE .  Tae__Co  .  Co_ReadFile 

(  Coid  =  >  Vm_Collection__Read/ 

Spec  =>  Resource_File, 

Mode  =>  TAE . P_CONT  ); 

Panel_backup_l .  Xnitialize__Panel  (Vin_Collection_Read)  ; 
Panel_create_l . Initialize_Panel  (Vin_Collection_Read) ; 

Pane  l_de  let  e__l . Initial ize_Panel  ( Vm_Collection_Read) ; 

Panel__go  .  Initialize_Panel  (Vm__Collection_Read)  ; 

Panel_grnd_eq. Initialize_Panel  (Vm_Collection_Read) ; 
Panel_keyword. Initialize_Panel  (Vm_Collection_Read) ; 
Panel_maintain .  Initial  ize__Panel  (Vm_Collection_Read)  ; 
Panel_mbn__kps .  Initialize_Panel  (Vm_Collection_Read)  ; 

Panel_op_no  .  Initialize_Panel  (Vm_Collection__Read)  ; 

Panel__opdetail .  Initialize_Panel  (Vm_Collection_Read)  ; 

Panel_query .  Initialize__Panel  (Vm_Collection_Read)  ; 

Panel_sb__main.  Initialize__Panel  (Vm_Collection_Read)  ; 
Panel__sdetail .  Initialize_Panel  (Vm_Collection_Read)  ; 
Panel_j3elect_l .  Initial ize__Panel  (Vm_Collection_Read)  ; 

--  MERGE  NOTE s  Add  additional  code  BELOW  tbis  line. 

—  MERGE  NOTE:  Add  additional  code  ABOVE  this  line. 

exception 

when  TAE . TAE_FAIL  => 

Text_IO„ Put_Line  ( "resf ile_Support . Initialize_All_JPanels :  ")  ; 

Text_IO .  Put_Line  { Resource__File 

&  "  doesn't  exist  or  is  incorrectly  formatted."); 
raise; 

when  TAE .  Tae_Co .  NO__SUCH_MEMBER  => 

--  raised  from  one  of  the  panel's  Xnitialize_Panel 
raise; 

end  Initialize_All__Panels; 


DispatchJPanel 


- -  Subprogram  BODY 


procedure  Dispatch_Panel 
(  User_Context_Ptr 

:  in  TAE „  TaeJWpt .  Event_Context__Ptr ; 
Panel__In_Resource_File 


306 


:  out  Boolean  )  is 


--I  NOTES:  (none) 

begin  --  Dispatch_Parm_Event 

Pane l__In_Res our ce_File  :=  TRUE; 

if  TAE . Tae__Wpt . " = "  (User_Context_Ptr ,  Pane  l_backup__l .  Inf  o)  then 
Panel_backup_l . Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae__Wpt . "  =  "  (User_Context„Ptr,  Panel_create_l . Info)  then 
Panel__create_l . Dispatch_Item  (User_Context_Ptr)  ; 
elsif  TAE . Tae__Wpt .  "  =  "  (User_Context_Ptr ,  Panel_delete__l .  Info)  then 
Panel_de let e_l .Di spat ch_Item  (User_Context_Ptr)  ; 
elsif  TAE . Tae_Wpt  •  "  =  "  (User_Context_Ptr,  Pane  l__go .  Inf  o)  then 
Panel_go  .Dispat  ch__Iteia  (User_Context__Ptr)  ; 
elsif  TAE . Tae_Wpt . "  =  "  (User__Context_Ptr,  Pane l__grnd_eq . Inf o)  then 
Pane l_grnd_eq.Di spat ch_Item  (User_Context_Ptr) ; 
elsif  TAE .  Tae_Wpt .  "  =  "  (User_Context_Ptr,  Panel_keyword .  Inf  o)  then 
Panel_keyword.Dispatch_Item  (User_Context_Ptr)  ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr ,  Panel__maintain. Info)  then 
Panel_maintain.Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . "  =  "  (User_Context_Ptr,  Pane l_mbn_kps . Inf o)  then 
Pane l_mbn_kp s .Di spat ch_Item  (User_Context_Ptr) ; 
elsif  TAE  .Tae_Wpt .  ”  =  "  (User_Context_Ptr ,  Pane l__op__no  .  Inf  o)  then 
Pane l_op_no.Di spa tch_I tern  (User_Context_Ptr)  ; 
elsif  TAE . Tae_Wpt . "  =  ”  (User_Context_Ptr,  Panel_opdetail . Inf o)  then 
Panel_opdetail .  Dispatch_Item  (TJser_Context_Ptr)  ; 
elsif  TAE .  Tae_Wpt .  "  =  "  (User_Context_Ptr ,  Panel_query .  Inf o)  then 
Panel_query. Dispat ch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . " = "  (User_Context_Ptr/  Panel_sb_main . Inf o)  then 
Pane l_sb„main.  Dispat ch_Item  (User_Context_Ptr)  ; 
elsif  TAE.Tae_Wpt . (User_Context_Ptr ,  Panel_sdetail . Info)  then 
Panel_sdetail .Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . *' = "  (User_Context_Ptr,  Panel_select_l . Info)  then 
Panel_select_l .Dispatch_Item  (User_Context__Ptr)  ; 
else 

Pane  l_In__Res  our  ce_File  :  =  FALSE; 
end  if; 

end  Dispatch_Panel; 


—  MERGE  NOTE:  Add  additional  code  BELOW  this  line.  (2) 
--  MERGE  NOTE:  Add  additional  code  ABOVE  this  line.  (2) 

end  sbgui_Support ; 


307 


#  ***  TAE  Plus  Code  Generator  version  V5.3  *** 

#  ***  File:  Make . sbgui  *** 

#  ***  Generated:  Feb  22  12:14:44  1996  *** 

#  ***  Author:  Ruey-Wen  (Vincent)  Hong 

#  ***  Date:  Mar  5,  1996 

#  ***  Application:  CAPS  Software  Base 

##################################################################### 

#  PURPOSE: 

#  This  file  is  included  into  the  Makefile.  It  lists  the  generated 

#  source  files  that  are  specific  to  the  resource  file: 

#  /tmp_jrint /users /work2 /vincent /caps 9 5 /src /combine  .work/ sbgui  .res 

# 

#  REGENERATED : 

#  The  following  WorkBench  operations  will  cause  regeneration  of  this  file 

#  A  panel  is  deleted 

#  A  new  panel  is  added 

#  A  panel's  name  is  changed  (not  title) 

#  For  the  panels: 

#  backup_l,  create_l,  deleteJL,  go,  grnd_eq/  keyword,  maintain, 

#  mbn__kps,  op__no,  opdetail,  query,  sb_main,  sdetail,  select__l, 

# 

##################################################################### 

SRCS_sbgui  =  \ 

pan_backup„l_s . a  \ 
pan_backup_l_b . a  \ 
pan_create_l__s .  a  \ 
pan__create_l_b.a  \ 
pan_delete__l_s .  a  \ 
pan_delete_l_b .a  \ 
pan_„go_s .  a  \ 
pan_go_b .  a  \ 
pan__grnd_eq_s .  a  \ 
pan_grnd_eq_b . a  \ 
pan_keyword_s . a  \ 
pan__keyword__b .  a  \ 
pan__maintain_s .  a  \ 
p an_ma int a in_b . a  \ 
pan_mbn_kps__s . a  \ 
p  an__mbn_kp  s__b .  a  \ 
pan_op_no_s . a  \ 
p an__op_no_b . a  \ 
pan_opdet  a i l_s . a  \ 
pan_opdet  a i l_b . a  \ 
pan_query_s.a  \ 
pan_query__b .  a  \ 
pan__sb_main_s .  a  \ 
pan_sb_ma in_b . a  \ 
pan_sdetail_s .a  \ 
pan_sdetail_b .a  \ 
pan_select_l_s . a  \ 
pan_select_l__b  „a  \ 
sbgui_support_s . a  \ 
sbgui_support_b . a  \ 
sbgui _ creat_init.a  \ 
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gldef.a  \ 
asable.a  \ 
semops . a  \ 
utilop.a  \ 
utilso.a  \ 
nsa.a  \ 
sigmat.a  \ 
semat.a  \ 
f result. a  \ 
swb_def.a  \ 
ring. a  \ 
swb . a  \ 
init .a 


# 

# 

# 

# 

# 

# 


***  TAE  Plus  Code  Generator  version  V5.3  *** 


***  File: 

***  Generated: 

*  *  *  Author : 

***  Date: 

***  Application: 


Makefile  *** 

Feb  22  12:14:44  1996  *** 

Ruey-Wen  (Vincent)  Hong 
Mar  5,  1996 
CAPS  Software  Base 
##################################################################### 

#  PURPOSE: 

#  This  is  the  Makefile  of  an  Ada  application  generated  by  the  TAE  Plus 

#  Code  Generator. 

# 

#  REGENERATED: 


#  This  file  is  generated  only  once.  Therefore,  you  may  modify  it  without 

#  impacting  automatic  code  merge. 

# 

#  NOTES: 

#  1.  This  Makefile  is  just  a  wrapper  around  the  Verdix  supplied 

#  "a.make"  and  "a.mklib"  commands.  If  you  are  porting  this  code  to 

#  another  compiler,  you  will  not  be  able  to  use  this  Makefile. 

# 

#2.  To  build  your  application,  type  "make". 

##################################################################### 


PROGRAM  =  sbgui 


ADALIB  =  . 

AMAKEJFLAGS  =  -v  -L  $ (ADALIB) 

AMKLIB_FLAGS  =  -v 

LDFLAGS  =  ~*o  $  (PROGRAM) 

#  PROGRAMMER  NOTE: 

#  Add  a  line  "#include  Make . RESFILENAME '  for  each  resource  file  in 

#  your  application. 

# 

include  Make. sbgui 


#  PROGRAMMER  NOTE: 
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=tt=  -c/v  0)  &  & 


Add  $ (SRCS_RESFIIiENAME)  for  each  resource  file  in  your  application. 

GENSRCS  =  $( PROGRAM). a  global_s .a  global_b.a  \ 

$ ( SRCS_sbgui ) 


PROGRAMMER  NOTE : 

Add  your  application  specific  srcs  (that  are  not  generated  by  the 
code  generator)  here. 

APPSRCS  = 

SRCS  =  $ (APPSRCS)  $ (GENSRCS) 


11::  mklibif  $ (PROGRAM) 


(PROGRAM) : : 

a. make  $ (AMAKE_FLAGS)  $ (PROGRAM)  $ ( LDFLAGS )  -f  $ (SRCS) 


Only  make  the  ada  library  if  the  file  "ada.lib"  doesn't  exist. 


mklibif : : 


-@if 


$ (TAEADALIB) " ;  \ 


fi; 


-f  ada.lib  ];  then  \ 

echo  "a.mklib  $ (AMKLIB_OPTS)  $ (ADALXB) 

a.mklib  $ (AMKLIB_OPTS)  $ (ADALIB)  $ (TAEADALIB) ;  \ 


mklib: : 


a.mklib  $ (AMKLIB_FLAGS)  $ (ADALIB)  $ (TAEADALIB) 
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INITIAL  DISTRIBUTION  LIST 


1.  Defense  Technical  Information  Center  2 

8725  John  J.  Kingman  Road,  Suite  0944 

Fort  Belvoir,  VA  22060-6218 

2.  Dudley  Knox  Library  2 

Naval  Postgraduate  School 

411  Dyer  Rd. 

Monterey,  California  93943-5101 

3.  Dr.  Ted  Lewis,  Chairman,  Code  CS/Lt  1 

Department  of  Computer  Science 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

4.  Chief  of  Naval  Research  1 

800  N.  Quincy  Street 

Arlington,  VA  22217 

5.  Dr.  Luqi,  Code  CS/Lq  10 

Department  of  Computer  Science 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

6.  Dr.  Man-Tak  Shing,  Code  CS/Sh  10 

Department  of  Computer  Science 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

7.  Mr.  Ruey-Wen  Hong  3 

26,  Ave  22,  Lane  119,  Jui-Lin  Road 

Yong-Ho,  Taipei ,  Taiwan,  R.O.C. 

8.  Ada  Joint  Program  Office  1 

OUSDRE  (R&AT) 

The  Pentagon 
Washington,  DC  20301 
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